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MICROCARDS - 42220 - BURDIGNES Cedex - FRANCE - tél (33) 77.39.68.13 - fax (33) 77.39.19.60 

Tarif TTC au 1 5/1 2/1 993 ( ce tarif remplace et annule les précédents) 


HARDWARE 
Cartes mémoire RAM (format carte de crédit) 

Cardram CCR 128 495,00 F 
Cardram CCR 256 690,00 F 
Cardram CCR 512 960,00 F 

Cartes mémoire ROM (format carte de crédit) 

Cardrom CCR 128 430,00 F 
Cardrom CCR 256 580,00 F 
Cardrom CCR 5 1 2 81 0,00 F 

(nota: les cardroms sont programmables uniquement avec un 
programmateur spécial) 

Portfolios neufs 
Portfolio 128K 1690,00 F 

Portfolio 256K 1 990,00 F 

Portfolio 384K 2260,00 F 
Portfolio 512K 251 0,00 F 

Extensions mémoire interne (augmentent la mémoire interne du 
Portfolio ; nécessite l'envoi de votre appareil) 

EMI 256K (ajoute 128K au Portfolio) 520,00 F 
EMI 384K (ajoute 256K au Portfolio) 790,00 F 
EMI 512K (ajoute 384K au Portfolio) 980,00 F 
Packalimentation Système remplaçant les piles par des accus 
très puissants (850 ou 1200 mA) et se rechargeant dans le Port- 
folio par un bloc secteur. Ce système comprend la fourniture des 
3 éléments : chargeur interne (nécessite donc l’envoi du Portfo- 
lio) + accus + alimentation : Très fiable. Amortissement du sys- 
tème en quelques mois. Nécessite l’envoi du Portfolio. 

Le packatim avec accus de 850 inA 320,00 F 
Le packalim avec accus de 1200 mA 420,00 F 
Alimentation de sauvegarde Complémentaire du Packalim, cette 
alim permet de sauvegarder les données du Portfolio en cas de 
problème d’alimentation générale (plantage, micro coupures 
etc...) Un micro accumulateur vient prendre immédiatement le 
relais des piles ou accus (conservation des données durant plu- 
sieurs mois sans aucune source d’alimentation ; nécessite l'envoi 
du Portfolio). 

Alimentation de sauvegarde 245,00 F 

Interface parallèle La liaison facile entre un Portfolio et un PC 
ou une imprimante. 460,00 F 
Câble de liaison PC 80,00 F 
Câble de liaison imprimante 80,00 F 

Interface série Permet la communication également avec 
d’autres périphériques et notamment le Macintosh 
Interface série 520,00 F 

Changement de Rom interne Remplacement des versions 1 .052 
ou 1.072 du bios par une version récente 1.130 ; permet d’éviter 
les plantages et autres erreurs division par zéro î BIOS 370,00 F 
Accumulateurs surpuissants ! Ces nouveaux accumulateurs 
possèdent une puissance de 1200 mA avec une tension maxi de 
1,55 volt, et pour une taille standard de type R6. Remplacent les 
piles du Portfolio et en augmentent son autonomie de 40%. Ils 
sont utilisables également dans d’autres appareils, ainsi qu’en 
photo et en modélisme. 

Le 850mA prix u. : 23 F - le 1200mA prix u. : 46 F 

SERVICE APRES-VENTE ET 

REPARATION DES ORDINATEURS DE POCHE. 

Devis gratuit sur simple demande 

Tarif forfaitaire pour ; changement liaison écran-clavier : 320F 
le Portfolio : changement d’écran : 650F 

; changement d’alimentation : 160F 

Document non contractuel : les 


SOFTWARE 

PBASIC Dernière version 4.91 de BJ.GLEASON avec de nom- 
breux utilitaires Dos. Compatible GWBASIC, ce langage est 
particulièrement adapté au Portfolio. Il est fourni avec une do- 
cumentation pour débutants avec des exemples simples. N’oc- 
cupant que 40K, il fonctionne sans problème avec un Portfolio 
standard. 

prix : 470,00 F (sur carte rom) 

ASTROPLAN Superbe logiciel d’Astrologie pour amateur ou 
professionnel. Fonctionne sur Portfolio standard, prix: 990,00 F 
(sur carte rom) 

PFSOLVER de G.LEGRANI) et R.NOMI. BEGUIN 
Avec ce module, vous n’aurez plus rien à envier à H P ! 
Calculatrice en notation polonaise inversée ; graphisme et tra- 
cés de courbes ; fonctions exponentielles et polaires etc... Ces 
softs de qualité ont été élaborés par des ingénieurs. Fournis sur 
carte Rom et fonctionnent sur Portfolio standard. Documenta- 
tion explicite. 

Prix : 380,00 F 

PBASE Superbe base de données pour Portfolio. Gère jus- 
qu’à 30 champs différents. Indispensable ! Fonctionne sur Port- 
folio standard et fournie sur carte Rom. Documentation dé- 
taillée et d’apprentissage. 

Prix : 690,00 F 

GESTION FAMILIALE Pour gérer votre budget - cartes de 
crédit - chéquier avec établissement des comptes et sortie sur 
iniDrimante. Fonctionne sur Portfolio standard. Fournie sur 
carte Rom. Prix : 490.00 F 

LE CONTRÔLEUR Puissant logiciel de gestion d’emploi du 
temps ; avec visites clients, horaires, relances, factures etc... Sur 
Portfolio standard et fournie sur carte Rom. Prix : 590,00 F 
JEUX 1 et 2 Voilà 2 cartes mémoire ROM ludiques exploitant 
pleinement les possibilités du Portfolio. Jeux de réflexion, 
d’adresse etc... Fonctionnent sur Portfolio standard. Fournies 
sur carte Rom. 

Prix JEUX 1 : 380,00 F 
Prix JEUX 2: 380,00 F 

1 1 ILS 1,2,3 Voici 3 trois cartes Rom bourrées d’utilitaires du 
dos pour Portfolio, ainsi que de programmes divers. Elles fonc- 
tionnent toutes sur Portfolio standard. 

Prix UTILS 1 : 380,00 F 
Prix UTILS 2 : 380,00 F 
Prix UTILS 3 : 380,00 F 

M AC FOLIO de R.THIBERT Avec cet ensemble, soft + câble, 
la communication entre le Portfolio et un Macintosh devient 
possible. Fonctionne avec tous les modèles de Mac. Prix : 380,00 F 
FOLIOLINK Ensemble câble + soft permettant la liaison en- 
tre le Portfolio et un Atari ST. Prix : 380,00 F 
ETUI de protection Magnilique étui en toile matelassée spé- 
cialement étudié pour le Portfolio: 295,00F 

Garantie totale pendant une année sur tous nos produits. Frais 
de port colissimo+ assurance = 45F par tranche de 1500F de 
matériel et 60F par tranche de 4000F. Règlement par chèque/ 
mandat carte ou 45,00F de supplément de contre rembourse- 
ment et + 110,00F pour un chronopost. 
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EDITORIAL 

La FRANCE, malade du complexe du programmeur ? 


Chers amis lecteurs, 


Tout d’abord, nous tenons à vous remercier pour votre soutien enthousiaste et immédiat après la sortie du premier numéro 
de POCHE COMPUTERS. Cela prouve qu'un tel magazine manquait cruellement. 

Vous avez été des centaines à nous écrire, à nous téléphoner, à nous faxer votre sympathie et vos encouragements. Des 
centaines également à nous faire part de vos désidératas et remarques positives concernant ce magazine. Des centaines à 
nous expédier spontanément vos programmes et idées, au point qu'on ne pourra pas publier tout le monde dans ce numéro. 
Excusez-nous de ne pas pouvoir répondre à tous, mais soyez assurés qu’on tiendra compte de vous et que les meilleurs 
softs seront imprimés dans les prochains numéros. Ceci nous fait chaud au coeur et nous renforce pour persévérer dans 
cette entreprise de presse. Continuez à nous écrire, nous en avons besoin. Mille excuses aussi pour avoir tardé à sortir ce 
numéro 2, mais nous sommes obligés quelquefois de passer beaucoup plus de temps que prévu pour la rédaction ; nous 
refusons de faire des concessions quant à la qualité du contenu du journal. Je pense que vous serez compréhensifs. 

Je ne manquerai pas de répondre à certaines interrogations concernant le magazine. 

Il taut savoir qu'un journal, surtout s'il est relativement marginalisé, ne lait pas gagner d'argent. Les annonceurs ne sont 
pas nombreux. Sur les 35F du prix du numéro, les intermédiaires (messageries de presse, distributeurs, diffuseurs, frais 
d’invendus) s'octroient plus de 40% au passage (ce qui est normal ; il faut bien qu'ils vivent aussi !). 11 reste que l'équipe 
rédactionnelle travaille quasiment bénévolement, uniquement par passion. Nous vous encourageons donc à vous abonner 
pour nous aider le plus possible. 

POCHE! COMPUTERS est aussi votre journal. 

Si j'en juge par la qualité et la quantité du courrier reçu après la parution de POCHE COMPUTERS, je comprends pourquoi 
la FRANCE est le premier (ou le deuxième : devant ou derrière les USA selon les avis) pays au monde à posséder une telle 
pluralité et une telle quantité de programmeurs. 

Eh alors, me diriez-vous ? Et bien, ça me rend malade... Malade qu’on les ignore... Malade qu’on ne connaisse ou 
reconnaisse pas cet immense réservoir de matière grise ; là, à votre porte. 

Depuis le programmeur de très haut niveau jusqu’au plus humble ; génial inventeur-imaginateur programmant en Basic, 
je leur rends hommage. L’informatique c'est aussi la vie. 

Cette vie informatique française me fait quelquefois penser à cet abrutissement systématique que nous font ingurgiter de 
force la plupart des médias ; à savoir une pseudo culture anglo-saxonne. Cela commence par des chansons (ne retenez que 
le rythme et encore ! où sont les Beatles !), ça continue par des séries télévisées américaines (d’une débilité affligeante : 
dites-moi, paraît-il qu’il n’est plus de bon goût de déclamer qu'ARTE est très ennuyeux ; il va falloir en dire du bien) et ça 
se termine par un matraquage style WINDOWS. 

Et l’homme dans tout ça ! 

La FRANCE sait fabriquer ARIANE, le TGV, F AIRBUS, mais ne sait pas programmer... Elle ne se donne pas les moyens 
de permettre l'éclosion de multiples vocations de programmeurs ou d’électroniciens. Elle subit en se lamentant l’omni- 
présence anglo-américaine et asiatique. Elle ne sait générer dans ce domaine que des sociétés de «prestige» complètement 
anachroniques, inopérantes et incapables, dont la tête n’est maintenue hors de l’eau qu’à coups de milliards de francs 
(payés par le contribuable). Elle n’a pas comprit que l’informatique et l’électronique sont des affaires quasi personnelles 
ou à petite échelle, exploitant au mieux les ingéniosités de chacun. Mieux vaut mille sociétés de 5 personnes que 5 
sociétés de mille personnes. 

Alors la FRANCE malade du complexe du programmeur ? 

Je dirais plutôt malade du complexe d'agir. Comme toujours en France, on parle, on se gargarise de bonnes paroles 
sulfureuses, on politise ... mais c'est tout ! prudence est mère de sûreté... 

Tenez, vous êtes jeune, compétent, plein d'idées et vous demandez un prêt pour créer une entreprise (par exemple d’infor- 
matique ou d électronique). On vous écoute, vous comprend, vous demande de vous expliquer sur votre projet, avec force 
détails et papiers concernant votre gestion à venir. Puis pour terminer, on vous informe que si votre papa possédait 
quelque château en Espagne pour cautionner votre emprunt, votre projet de création serait sans doute génial !!! 

Voilà le niveau de relation et d’aide que procure l’état français à ce merveilleux potentiel de créativité existant dans notre 
pays. Ne demandez pas pourquoi tant de «cerveaux» se réfugient dans T éducation nationale ! Pour eux, une attitude 
différente serait suicidaire.. Allez, passez de bonnes fêtes quand même et tous à vos machines !!! 


Pierre MARTIN 







/ LES NEWS 


La STAR SJ-144 

Une imprimante couleur et noir et blanc, à transfert thermi- 
que au prix d’une imprimante jet d'encre ? 

En effet, et d’une qualité laser (360 x 360 dpi), ainsi que des 
couleurs irréprochables, très proches de la qualité photo. 

L'impression est possible sur 
tous types de papiers, envelop- 
pes et transparents. Son coût 
d’exploitation à la page n'est 
pas plus onéreux qu'avec une 
jet d’encre. 

" Son prix : 3940F ht. 


NOUVEAU ! 

pour le PSION sériés 3 ou 3a 

La société MICROCARDS annonce la dis- 
ponibilité d’un lecteur de disquettes au for- 
mat 3 1/2 pouces. Il permet sans problème 
de lire et d’écrire les disquettes 720KB ou 
1,44MB utilisées par les PC. Il possède sa 
propre alimentation. Il utilise la serial link 
pour se connecter au sériés 3 et son soft in- 
terne pour transmettre programmes et fi- 
chiers. Toutefois, pour faire tourner ces pro- 
grammes, il faut au préalable les charger sur 
une SSD. Son prix : 3027F ht 


EMULATEUR MINITEL pour PSION sériés 3/3 a 

La société NOGEMA vient de mettre au point un émulateur minitel pour le sériés 3/3a, qui peut être accom- 
pagné d un cable de liaison à un minitel ou d'un modem V22 et V23. fl permet l'appel de serveurs télémati- 
ques et autres serveurs dédiés. Il récupère en outre les écrans du minitel par ia ligne téléphonique. 11 est livré 
sur disquette PC ou sur SSD flash. La configuration nécessaire est d'un PSION sériés 3/3a et d'un serial link. 
Disponible chez MICROCARDS. prix à partir de 950 Fht 


VOUS AVEZ DIT : MINIATURISATION 

Maxtor (US) vient de réaliser l'exploit d’un disque dur 


de 105 MB au format d’une carte PCMCIA type III. 



Sous un format 1 ,8 pouces et de technologie Winches- 
ter, ce disque se trouvera en France d’ici 6 mois pour 
un prix avoisinnant les 2500F. Que deviendront les 

possesseurs d’appaieils de 
type PCMCIA II ou même 1 ? 
Qu'ils se rassurent, le mar- 
ché étant très important, 
MAXTOR prévoit de sor- 
tir un 100MB sur type II 
d'ici fin 1994 et un 100MB 
de type I d'ici fin 1995. La 
course avec INTEL et ses 
cartes Flash de 36 MB est 
engagée. Pour le plus grand 
bénéfice du consommateur 
final ! 



Votre poche a-t-il de l'oreille ! 

La société Blue Sky Technology, installée en Ca- 
lifornie fabrique une oreille électronique "EarMic” 
en forme d’oreille plastique. Vous la collez sur le 
buzzer de votre écran avec un velcro et obtenez 
ainsi un microphone dont le gain d’amplification 
est très important. Associée à une carte son (il en 
existe sur port parallèle), vous pourrez capter et 
numériser tous sons. Prix : environ 1500F (hic !!!) 
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CITIZEN vient de sortir une nou- 
velle imprimante couleur portative à 
transfert thermique, fonctionnant sur 
secteur ou batteries. La Notebook 
printer II est idéale pour les poekets, 
car son poids et son encombrement est 
minime (de la taille d'une cartouche 
de cigarettes). Sa définition atteint 360 
x 360 dpi. Son prix : 3000F ht. 


UNE INNOVATION ? 

On vous les avait annoncés dans le premier numéro de POCHE 
COMPUTERS, et bien les voici en chair et en os ! 

Le SHARP PC 1490 avec 64KB de mémoire (extensible à 512KB). 
L'affichage est de 4 lignes par 40 caractères ou de 240 par 32 dots. 
Les fonctions internes ont été largement améliorées par rapport aux 
autres modèles. 
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Le CASIO FX-890P marque également un réel progrès par rapport au 
FX-880P, très connu en France, tant au niveau des possibilités mé- 
moire que de la rapidité et de l'affichage. 

La société MICROCARDS est en pourparlcr pour importer ces deux 
produits. Vous serez tenus au courant dans les prochaines semaines. 
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AUTONOMIE, tel semble est le maître mot de la société GP 
COMM qui propose ce convertisseur qui transforme la tension 12v 
de la batterie de votre voiture, en 220v. Très utile pour les personnes 
utilisant une imprimante portable durant leurs déplacements (mais 
également toutes sortes d'objets électriques et bien entendu des mi- 
cros de poche dont l’alimentation demande à être rechargée). 



Fin d’un problème chez HP et chez PSION? 

MICROCARDS propose le PARALINK qui va résoudre beau- 
coup de problèmes chez les utilisateurs des HP 95LX et HP 
100LX, ainsi que chez les fanas du PSION sériés 3/3a. 

En effet, ces trois appareils ont un handicap majeur, à savoir 
qu’ils ne possèdent pas d'interface parallèle intégrée. Or, lors- 
qu'il faut sortir sur imprimante, ce n'est pas aisé. En effet, l'im- 
mense majorité des imprimantes ne possèdent qu’une sortie pa- 
rallèle. Le convertisseur proposé ici, permet d’obtenir un port 
parallèle à partir du port série de votre machine. Directement 
accessible sans manipulation aucune, il est, en outre, auto ali- 
menté par une pile. 11 suffit de brancher ce mini boitier sur la 
prise 25 points série, quelques paramètres à définir sur votre 
ordinateur, et le tour est joué ! prix 557Fht 
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MONITEUR ET DESASSEMBLEUR 

POUR Z88 



par Thierry PEYCRU 


Voici un 


moniteur et désassemble ur pour le fameux ZHH. Entièrement écrit en basic et en assembleur , il vous permettra 

d'accéder au magique et quelque peu ésotérique LANGAGE MACHINE 


Utilisation de l'assembleur ZSü dans le BBC Basic : Quelques adresses : 


. La variable p% contient le départ du programme (équiva- 
lent de ORG) 

. La commande OPT permet de choisir le mode d'assemblage 
(cf : Manuel) 

ex: 15 [OPT 3:] 

■ Le caractère "N" permet d'afficher une variable en 
héxadécimal. 

ex: 80 PR. NA% 


(MM)O-0 1 A4 Zone des RST, gestion des pages de mémoire. 
CC01 Tables des codes de contrôle ASCII. 

D200 Routine de gestion de la mémoire... 

D980 Départ du Basic BBC 

DAD7 Tables des mots-clefs du basic avec leur token. 

DD7I) Table des messages d'erreur. 

FCFA Table des mnémoniques de l'assembleur Z80. 


. Ouvrir un programme par un crochet (exemple) : 
10 P%“&7000 


FF.45 Dédicace du Basic 

FE70 Autre départ du Basic. 


20 | 

30 LD HL, (&200Ü) 

40 LD A, (HL) 

50 JR Z, &7000 
60 [ 

10 REM Moniteur Desassembleur 
20 REM (C) Thierry Peycru - ESN Bordeaux 
30 REM MD - VI. 2 (23/10/93) 

40 ‘NAMEmd 
50 CLS 

60 PRINT "Initialisation en cours..." 

70 REM ‘variables 
80 DIM Ml $(255) 

90 DIM M2$(255) 

100 DIM M3$(191 ) 

110 INDEX=FALSE 
120 RETORE 850 
130 FOR !%=0 TO 255 
140 READ MN$ 

150 M1$(I%)=MN$ 

160 NEXT 
170 RESTORE 1180 
180 FOR l%=0 TO 63 
190 READMNS 
200 M2$(I%)-MN$ 

210 NEXT 

220 DATA 064,1 27, "BIT " 

230 DATA 128,191 TRES " 

240 DATA 192,255." S ET ” 

250 DATA "B ,, ,"C","D","E" I "H I, /‘L","(HL)" I “A" 

260 RESTORE 220:GOSUB 300 
270 RESTORE 230;GOSUB 300 
280 RESTORE 240:GOSSUB 300 
290 GOTO 390 

300 READ D%,F%,MNE$ 

310 FOR J%=D% TO F% STE P 8 

320 RESTORE 250 
330 FOR K%-0 TO 7 
340 READ REG$ 

350 M2$(J%+K%)= MNE$+STR$((J%-D%)/8)+ 

360 NEXT 

370 NEXT 

380 RETURN 

390 FOR l%=0 TO 63 

400 M3%(l %)='"' 

410 NEXT 1% 

420 RESTORE 1270 

430 FOR !%=64 TO 191 

440 READ MN$450 M3$(I%)-MN$ 



"+ REGS 


460 NEXT 1% 

470 0%=&7000 
480 P%— 0% 

490 [OPT 3:] 

500 DIM H%(15) 

510 FOR l%=0 TO 15 

520 CH%=48 

530 IF !%>9 THEN CH%=55 

540 H % ( I % ) ~ C H % + 1 % 

550 NEXT 

560 REM ‘fonctions 

570 DEF FND2H8$(D%)= CHR$(H%(D%DIV&001 0))+ 
CHR$(D%MOD&001 0); 

580 DEF FND2HW$(A%)= 

CHR$(H%(A%DIV&1000))+CHR$(H%((A%MOD&1000) DIV&0100)) + 
CHR$(H%(((A%MOD&1 000) MOD&0100)DIV&0010) + 
CHR$(H%(((A%MOD&1 000) MOD&01 00)MOD&0010); 

590 REM ‘procedures 
600 GOTO 1430 
610 DEF PROCE(B) 
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620 IF B=0 THEN ENDPROC 
630 A=OPENOUT":RAM.0/EE.CU" 

640 B$-”:RAM.0/E.CLr' 

650 PRINT #A,".> !, +B$ 

660 PRINT #A,".J","LIST"+ STR$(B)."PROCF" 

670 CLOSE #A 

680 *CL! ,*:RAM.0/EE.CL! 

690 ENDPROC 
700 DEF PROCF 
710 A=INKEY(0) 

720 A-OPENIN B$ 

730 INPUT #A,A$,A$ 

740 CLOSE #A 
750 A^OPENOUT B$ 

760 PRINT #A,".J",A$ 

770 PTR#A=PTR#A-1 
780 BPUT#A,0 
790 CLOSE #A 
800 VDU 8 

810 OSCLL'CLI ,<"+B$ 

820 ENDPROC 
830 REM "data 

840 REM instructions sans préfixé 

850 DATA "1NOP", "3LD BC,&", "1LD (BC).A", "1 INC BC", "1INC B", 
"1DEC B", “2LD B,&", "1RLCA" 

860 DATA "1EX AF, AP ", ''1 ADD HL.BC", "1LD A,(BC)*, “ 1 DEC BC", 
n 1 1NC C", "1DEC C", "2LD C,&”, "IRRCA" 

870 DATA "2DJNZ #", “3LD DE,&", "1LD (DE), A", "1INC DE", "1INC 
D", "1DEC D", "2LD D,&", "1 RLA" 

880 DATA "2 J R #", "1ADD HL, DE", "1 LD A, (DE)", ”1DEC DE", "1INC 
E", "1 DEC E", "2LD E,&", "1RRA" 

890 DATA "2JR NZ,#", “3LD HL,&", "3LD (&),HL'\ M 1 INC HL", "1 INC H'\ 
“1DEC H“, "2LD H,&‘', "1DAA" 

900 DATA "2 J R Z,#", "1 ADD HL, HL", "3LD HL,{&)", "1DEC HL", "1INC 
L", "1DEC L.'\ "2LD L,&", "1CPL" 

910 DATA "2JR NC,#", "LD SP,&", “3LD (&),A U , "1INC SP", "1INC (HL)", 
"1DEC (HL)", “2LD (HL),&", "1SCF" 

920 DATA "2JR C,#'', "ADD HL,SP\"3LD A ,(&)", "1 DEC SP'7'1 INC A", 
“1DEC A", "2LD A,&“, "1CCF" 

930 DATA "1LD B, B", “1LD B,C“, "1LD B,D", "1LD B,E", "1 LD B, H", 

"1LD B,L", “1LD B, (HL)", "1 LD B, A" 

940 DATA "1LD C,B", "1LD C,C", "1LD C,D", "1LD C,E", "1LD C,H", 
"1LD C,L", “1LD C,(HL)", "1LD C,A" 

950 DATA "1 LD D,B", "1 LD D,C", "1 LD D,D", "1LDD,E", "1 LD D,H", 

"1LD D,L”, "1LD D,(HL) n , ”1 LD D,A) 

960 DATA "1LD E,B", "1LD E,C", "1LD E,D", "1LD E,E", "1LD E,H", 
"1LD E,L“, "1LD E,(HL)", "1LD E,A' ! 

970 DATA "1 LD H, B", "1 LD H,C", "1 LD H,D", "1 LD H.E", "1 LD H, H", 
“1LD H,L", "1LD H,(HL)", "1LD H, A" 

980 DATA "1 LD L,B", "1 LD L,C", "1 LD L,E”, “1 LD L,H", "1 LD L,L", "1 LD 
L,(HL)“, "1LD L,A" 

990 DATA "1 LD (HL). B", "1 LD (HL),C\ "1 LD (HL),D", "1 LD (HL).E", 

"1LD (HL), H", “1LD (HL),L", “1HALT", "1LD (HL), A” 

1000 DATA "1LD A, B", "1LD A,C", "1LD A,D", "1LD A.E", "1LD A, H", 

"1LD A,L", " 1 LD A, (HL)", "1LD A, A" 

1010 DATA "1ADD A, B", “1 ADD A,C", "1 ADD A,D", "1 ADD A.E", "1 ADD 
A, H”, "1 ADD ,L", "1 ADD A, (HL)", "1 ADD A, A" 

1020 DATA "1ADC A, B", "1 ADC A,C", "1 ADC A,D“, "1 ADC A,E", "1 ADC 
A, H", "1 ADC A,L", "1 ADC ,(HL)", "1 ADC A, A" 

1030 DATA "1SUB B", “1SUB C", "SUB D", "1SUB E", "1SUB H", “1SUB 
L", "1SUB (HL)", "1SUB A" 

1040 DATA ” 1 SBC A, B", ”1SBC A,C", "1SBC A,D", "1SBC A,E", "1SBC 
A,H'\ "1SBC A,L", "1SBC A, (HL)", "1SBC A, A" 

1050 DATA "1AND B", "1 AND C", "1 AND D", "1 AND E", "1 AND H", 

"1 AND L", "1AND (HL)", “1 AND A" 

1060 DATA “ 1 XOR B", "1XOR C", "1XOR D", "1XOR E", "1XOR H", 
"1XOR L", "1XOR (HL)", "1XOR A" 

1070 DATA "lOR B", "10R C", "10R D", "10R E", "10R H", "lOR L", 
"10R (HL)", "lOR A" 

1080 DATA "1CP B", "1CP C", "1CP D", "1CP E", "1CP H", "1CP L", 

"1 CP (HL)", "1 CP A” 

1090 DATA "1RET NZ",’'1POP BC","3JP NZ,&","3JP &73CALL 


NZ,&",“1 PUSH BC“,"2ADD A,&",’'1RST OH" 

1100 DATA "1 RET Z", "1RET", “3JP Z,&", “1 @CB", "3CALLZ,&", 
"3CALL &", "2ADC A,&", "1RST 8H" 

1110 DATA "1RET NC3", "1POP DE", "3 J P NC,&", "20UT (&),A”. 
"3CALL NC,&“, "1PUSH DE", "2SUB "1 RST 10H" 

1120 DATA "1RET C", "1EXX", "3JP C,&", "2IN A,(&)", "3CALL C,&", 

"1 @IX", "2SBC A,&“, "1RST 18H" 

1130 DATA "1 RET PO", "1POP HL", "3JP PO,&", "1 EX (SP), HL", 
"3CALL PO,&", "1PUSH HL", “2AND 11 1 RST 20H" 

1140 DATA "1 RET DE", "1JP (HL)", "3JP PE,&", "1EX DE, HL", "3CALL 
PE,&", "1 @ ED", "2XOR “ 1 RST 28H" 

1150 DATA "1RET P", "1POP AF", "3JP P,&", "1DI", "3CALLP,&", 
"1PUSH AF", "20R "1RST 30H" 

1160 DATA "1 RET M“, " 1 LD SP, HL", "3 J P M.&", ”1 El", "3CALL M.&", 
"lOlY'V'ZCP " 1 RST 38H" 


1170 REM instructions avec préfixé CB 

1180 DATA "RLC B", "R LC C", "RLC D", "R LC E", 11 R LC H", "R LC L”, 
"RLC (HL)", “RLC A" 

1190 DATA "RRC B", "RRC C", “R RC D", "RRC E", "RRC H", "RRC L", 
"R RC (HL)", "RRC A" 

1200 DATA "RL B", "RL C", "RL D", "RL E", "RL H", "RL L\ "RL (HL)", 
"RL A" 

1210 DATA "RR B”, "RR C", "RR D", "RR E", "RR H", "RR L", "RR (HL)“, 
"RR A" 

1220 DATA "SLA B", "SLA C", "SLA D", "SLA E", "SLA H", "SLA L", 
"SLA (HL)", "SLA A" 

1230 DATA "SR A B", "SRA C", "SR A D", "SRA E", "SRA H", "S RA L", 

"S RA (HL)", "SRA A" 
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1250 DATA "SRL B", "SRL C", "SRL D”, "SRL E", "S RL H", "SRL L", 
‘SRL (HL)", "SRL A" 


1260 REM instructions avec préfixé ED 

1270 DATA "1 IN B,(C)", "10UT (C),B", "1SBC HL.BC", "3LD (&),BC", 
"1NEG", "1RET M", "1IM 0", "1LD !,A" 

1280 DATA "UN C,(C)", "10UT (C),C", "1 ADC HL,8C", "3LD BC,{&)", "", 
"1RETI", , "1 LD R, A" 

1290 DATA "1 IN D,(C)", "10UT (C),D", "1SBH HL, DE", “3LD (&),DE U , 

"1 IM 1", "1LD A,!' 1 

1300 DATA "1 IN E,(C)", "10UT (C),E M , "1 ADC HL. DE", "3LD DE,{&)". "", 
“1 IM 2“, “1LD A, R 11 

1310 DATA "1 IN H,(C)", "10UT (C),H", "1SBC HL, HL", "3LD (&),HL", 
"1RRD" 


1320 DATA "1 IN L,(C)", "10UT (C),L", "1 ADC HL, HL", "3 LD HL,(&)", , 

"", "1RLD" 

1330 DATA "1 IN R,(C)", , "1SBC HL, SP", "3LD (&),SP", "" 

1340 DATA "1 IN A,(C)", "lOUT (C),A", "1 ADC HL, SP", "3LD SP,(&)", ", 
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1350 DATA "", "", 11 ", ™ 

1360 DATA "", "", "" 

1370 DATA "" 

1380 DATA "", “", "" 
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1390 DATA "1 LDI", "1CPI", "1INI", "lOUTI'V ", ", ", "" 

1400 DATA "1LDD", "1CPD", "1IND", "10UTD", "", "", “" 

1410 DATA "1LDIR", "1CPIR", "UNIR", "10TIR", "", "", "", "" 
1420 DATA "1LDDR", "1CPDR", "1INDR", "lOTDR". "", 
1430 REM ‘principal 


1440 C LS 
1450 PRINT 
1460 PRINT 

1470 PRINT "(M)omîeur" 

1480 PRINT "(D)esassembieur" 

1490 K$=INKEYS(1) 

1500 IF K$- S,il THEN GOTO 1490 
1510 IF K$-"M" THEN GOSUB 1540 
1520 IF K$="D" THEN GOSUB 2160 


1530 REM 'moniteur 


1550 CLS 
1 560 AD%=0 
1570 FOR L%=1 TO 4 
1580 PRINT 

1590 PRINT FND2HWS(AD%);" - 
1 600 FOR N%-AD% TO AD%+1 5 
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2300 IF N%=2 THEN CC$=FND2H8$(?(AD%+1)) 

2310 IF N%=3 THEN CC$=FND"H8$(?(AD%+2)) + 
FND2H8$(?(AD%+1 )) 

2320 IF N%=3 AND INDEX-TRUE THEN CC$=FND2H8$(?{AD%+2)) 


1610 PRINT FND2H8$(?N%) + “ 

1620 N EXT 

1630 FOR N%=AD% TO AD%+15 

1640 IF ?N%>31 THEN PRINT CHR$(?N%); ELSE PRINT 

1650 NEXT 

1660 AD%=AD%+1 6 

1670 NEXT L% 

1680 K$=!NKEY$(1) 

16901F K$="" THEN 1680 

1700 IF KS=" " OR K$="N" THEN 1570 

1710 IF K$="P" THEN AD%=AD%-&80:GOTO 1570 

1720 IF K$=”A" THEN GOSSUB 1770:GOTO1570 

1730 IF K$="S“ THEN GOSSUB 1830:GOTO 1570 

1740 IF K$="W" THEN GOSSUB 2020:GOTO 1570 

1750 IF K$="F" THEN RETURN 

1 760 GOTO 1 680 

1770 REM ‘nouvelle adresse 

1780 PRINT TAB(73,1);" Adresse" 

1790 INPUT TAB(73,2);AD$; 

1800 AD%,EVAL("&"+AD$) 

1810 PRINT TAB{0,0);""; 

1820 RETURN 

1830 REM ‘recherche chaine 

1840 PRINT TAB(73,1 ^“Chaîne" 

1850 INPUT TAB(73,2);ST$ 

1860 PRINT TAB(73,3) Adresse" 

1870 INPUT TAB(73,4);AA$ 

1880 AA%=EVAL{"&"+AA$) 

1890 L%=LEN{ST$) 

1900 PO%=ASC(LEFT$(ST$,1)) 

1910 LOOP=TRUE 
1920 REPEAT 

1930 REM XX$=LEFT$($AA%,L%) 

1940 IF ?AA%=PO% THEN GOSUB 1990 
1950 PRINT TAB(73,5);"&“;FND2HW$(AA%) 

1960 AA%- AA%+ 1 
197G UNTIL LOOP^FALSE 
1980 RETURN 

1990 XX$=LEFT$( $ A A% , L%) 

2000 IF XX$=ST$ THEN AD%=AA%:LOOP=FALSE 

2010 RETURN 

2020 REM ‘recherche mot 

2030 PRINT TAB(73,2);”Mot" 

2040 INPUT TAB(73,3);W$ 

2050 PRINT TAB(73,4);"Adresse'' 

2060 INPUT TAB(73,5);A$ 

2070 W1%=EVAL("&"+LEFT$(W$,2)) 

2080 W2%=EVAL(''&“+RIGHT${W$,2)) 

2090 AA%=EVAL("& I, +A$) 

2100 LOOP = TRUE 
2110 REPEAT 
2120 IF ?AA%=W1% 

AND?(AA%+1 )=W2%THENAD%=AA%:LOOP=FALSE 

2130 AA%~AA%+1 

2140 UNTIL LOOP=FALSE 

2150 RETURN 

2160 REM ‘desassembleur 

2170 CLS 

2180 INPUT "Adresse" ;AD$ 

2190 AD%=EVAL("&''+AD$) 

2200 REM boucle desa 
2210 PRINT FND2HW$(AD%);“ 

2220 B%=?AD% 

2230 MN$=M1$(B%) 

2240 IF B%=&DD THEN GOSUB 2640 

2250 IF B%=&FD THEN GOSUB 2690 

2260 IF B%=&CB AND INDEX^FALSE THEN GOSUB 2520 

2270 IF B%=&ED THEN GOSUB 2580 

2280 N%=EVAL{LEFT$(MN$ : 1)) 

2290 IF N%=1 THEN CC$="" 


2330 PN%=INSTR(MN$,"&") 

2340 IF PN%=0 THEN PN%=LEN(MN$):CC$='"' 

2350 FM%=LEN{MN$)-PN% 

2360 IF FM%=0 THEN FM$ ="" ELSE FM$=RIGHT$(MN$,FM%) 
2370 PR%=INSTR(MN$, 11 #") 

2380 IF PR%<>0 THEN GOSUB 2950 
2390 Z$=MIDS(MNS,2,PN% -1)+CC$+FMS 
2400 FOR l%=0 TO N%-1 
2410 PRINT FND2H8S(?(AD%+I%));" 

2420 NEXT 

2430 PRINT TAB(24);Z$ 

2440 AD%=AD%+N% 

2450 REPEAT 
2460 K$=INKEY$(1) 

24701F K$-"F" THEN GOTO 1430 
2480 UNTIL KS<> "" 

2490 INDEX^FALSE 
2500 MN$=“" 

2510 GOTO 2200 
2520 REM ttt préfixé CB 
2530 PRINT "CB ", 

2540 AD%-AD% +1 
2550 B%=?AD% 

2560 MN$='T+M2$(B%) 

2570 RETURN 
2580 REM ttt préfixé ED 
2590 PRINT "ED 
2600 AD%=AD%+1 
2610 B%=?AD% 

2620 MN$=M3$(B%) 

2630 RETURN 
2640 REM ttt index IX 
2650 PRINT "DD " 

2660 IZ$="IX' 

2670 GOSUB 2470 
2680 RETURN 
2690 REM ttt index IY 
2700 PRINT “FD 
2710 IZ$-"IY" 

2720 GOSUB 2740 
2730 RETURN 
2740 REM ttt index IZ 
2750 INDEX=TRUE 
2760 AD%=AD%+1 
2770 B%=?AD% 

2780 MT$-M1${B%) 

2790 IF B%=&CB THEN GOSUB 2920 
2800 N%=EVAL(LEFT$(MTS, 1 )) 

2810 PIZ%=INSTR(MTS,"(HL)") 

2820 IF PIZ%=0 THEN GOTO 2880 
2830 REM il existe un index IZ+dd 
2840 N%=N%+1 

2850 REG$="("+IZ$+ ,l +“+FND2H8$(?(AD%+1 ))+")" 

2860 MN$=STRS(N%)+MID${MT$,2,PIZ%- 
2)+REG$+RIGHT$(MTS,LEN(MT$)-PIZ%-3) 

2870 RETURN 

2880 PIZ%-INSTR(MTS,"HL") 

2890 MN$=STRS(N%)+MID${MT$,2,PIZ%2)+ 
IZ$+RIGHT$(MT$,LEN(MT$)-PIZ%-1) 

2900INDEX-FALSE 
2910 RETURN 

2920 REM tt index IZ suivit de préfixé CB 
2930 MT$="2"+M2S(?(AD%+2)) 

2940 RETURN 

2950 REM ttt adressage relatif 
2960 AR%=?{AD%+1 ) 

2970 IF AR%>127 THEN ADR%=AD%+AR%-254 
2980 IF AR%<128THEN ADRE%=AD%+AR%+2 
2990 CC$=FND2HW$(ADR%) 

3000 RETURN 
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PSION sériés 3a : 


SI PROCHE... 



ET POURTANT SI DIFFERENT... 

par Vincent LEGROS 

Dans le premier numéro de Poche Computers , si vous ne le connaissiez pas encore, vous découvriez avec surprise le 
Psion Sériés 3. Surpris certes par les fabuleuses possibilités de cette petite machine... 

Mais cette fois-ci, vous ne pour- 
rez résister à ce que vous réserve le der- 
nier né de chez PSION, à savoir le petit 
frère du séries 3, le fabuleux Sériés 3a.., 

Parlons peu, mais parlons bien ! 

Extérieurement, les deux machines sont 
rigoureusement identiques si ce n'est le 
petit «a» placé à côté du nom Psion 
Sériés 3 de la face avant de l'appareil. 

Mais prenons ensemble un risque, et au 
risque de devoir passer votre ancienne 
machine (le Sériés 3 par exemple, mais 
qui n'est en aucun cas considéré comme 
du matériel obsolète) à la cuisine à des 
fins ménagères (déclanchement d'appa- 
reils électriques par exemple), entrons 
à l'interieur de la bête. MIRACLE, 
l’écran est plus grand ! Que dis-je ? Il 
est plus grand, mais en fait il n’a rien a 
voir avec l’ancien... Mais avant d'en- 
trer sauvagement dans les entrailles de 
la machine, nous remarquons que la tou- 
che Programmation OPL (touche tac- 
tile sur le Sériés 3) a disparue ! ! ! Pas de 
panique, elle est remplacée par la tou- 
che Tableur, ce qui nous permet d’en 
déduire que désormais ce logiciel se 
trouve dans la ROM ! ! ! Et les program- 
meurs peuvent toujours entrer dans 
l’éditeur OPL mais désormais en se pla- 
çant sur L Icône de l’écran Système. 

Autre changement fondamental : Une 
autre touche a été remplacée: Verr MAJ 
n'est plus, elle a été substituée par une 
touche Diamant dont Futilité sera dé- 
crite un peu plus loin. La possibilité de 
bloquer le clavier en Majuscules existe 
toujours, et pour ce faire, il suffit de pres- 
ser simultanément les touches Psion + 

Diamant. 

Pour tester le clavier, il semble- 
rait subtil d'allumer cette petite ma- 
chine... Al ions-y ... Les choses prennent 
une allure inattendue, dès que l'écran 
système s’allume... Sans vouloir vexer 
le Sériés 3, Monsieur Sériés 3a est en- 
core mieux en étant à la fois semblable... 

Mieux car son écran est quatre fois plus 
grand, qu'il existe désormais un niveau 


de gris permettant un effet d'ombre sur 
les icônes (qui sont en 48*48 pixels !). 
mais identique dans F utilisation. 

Le gestionnaire de programmes est très 
bien réalise et d'une facilité d'exploita- 
tion exceptionnelle. Le clavier s’est en- 
core un peu amélioré et on peu désor- 
mais frapper des textes à une allure tout 
à fait convenable sans faire trop d’oublis 
de caractères. De là à n’aller en cours 
qu’avec son Sériés 3a... 

Mais, que vois-je ? Il est mar- 
qué au dessus de l’écran "16 bit 
CPU" (comme le Sériés 3)," 
MULT1-TACHES" (comme le Sériés 3)," 
SYSTEME AUDIO NUMERIQUE ’ 
(Nouveauté! ! !). Et oui, nous proposions 
de parler peu, mais de parler bien: Le 
Sériés 3a digitalise votre voix ou tous 
sons grâce à un petit micro subtilement 
caché dans le boitier, et les restitue d’ une 
manière étonnante. Seul inconvénient, 
les sons prennent beaucoup de place: 8 
Kilo octets par seconde !!! Les utilitai- 
res de compression n’arrivent pas à ré- 
duire la place prise par les fichiers son. 

C'est donc à ce moment précis 
que notre intérêt va se porter sur les ca- 
pacités de stockage de la machine (Dis- 
que interne). Le Sériés 3a a gagné 
dans cette cure de rajeunissement 
256 Ko, c’est à dire que le modèle 128 Ko 
passe à 256Ko, et comme vous 
l’aurez deviné avec stupéfaction, le 
modèle 256 Ko passe donc à 5 1 2 Ko ! ! ! 


Bien sûr, les deux lecteurs existent tou- 
jours, et permettent de stocker des don- 
nées sur des extensions mémoires du 
type RAM disque ou FLASH disque (de 
128Ko à 2Mo par lecteur). On com- 
mence à se demander comment PSION 
a pu organiser cette machine pour met- 
tre toutes ces caractéristiques dans un si 
petit boitier... 

Puisque l'on commence à appro- 
cher le vif du sujet, parlons un peu des 
données constructeur relatives à cet ap- 
pareil : 

* Le processeur ne change pas : 
toujours un NECV30H mais qui tourne 
à 7.68 Mhz cette fois ci. (soit le double) 

* La ROM fait près de I Méga 
(normal lorsque F on sait tous les logi- 
ciels qui dorment en cette machine... 

* ECRAN 480*160 pixels avec 
1 niveau de gris 

* Poids 275g piles incluses 

* Logiciels Intégrés : Enregis- 
treur numérique. Gestionnaire de fiches. 
Traitement de textes. Agenda, Heure (6 
alarmes différentes). Monde, une cal- 
culatrice, le Tableur, et le langage de 
p rogram mat i on OPL . 

Les logiciels internes à la ma- 
chine, sont véritablement exceptionnels, 
simples d’emploi et puissants. Ajoutons 
à ces éloges la compatibilité des infor- 
mations avec votre ordinateur de bu- 
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P$KM sériés 3a... PSION series3a... PSION leilei 


LE GESTIONNAIRE DE FICHES 

Quelques changements par rapport 
à la version Sériés 3. On peut désormais 
faire une recherche sur un libellé. Par exem- 
ple, pour rechercher Monsieur PASCAL 
(nom de famille), vous faites une recher- 
che sur le libellé NOM: et le gestionnaire 
de fiches ne vous sortira plus les fiches re- 
latives aux gens dont le prénom est Pascal, 
ou celles où le libelle Notes: comporte la 
mention «Grand adepte de Pascal», si tenté 
que certains de vos amis en soient effecti- 
vement des adèptes. 

La recherche d'une fiche sur un 
grand fichier a été accélérée. La touche 
diamant permet par une simple pression de 
passer du mode Ajouter Fiche à Trouver 
fiche. De plus Psion+Z 
permet d'avoir un ZOOM : les caractères 
changent de taille et vous offrent 4 tailles 
d’affichage. 


LE TABLEUR 

Excellent petit tableur compatible 
directement avec Lotus 123 et Excel sur 
PC ou Mac. La touche diamant permet de 
passer du mode tableur au mode graphi- 
que. La fonction Zoom existe également. 

LE TRAITEMENT DE TEXTES 

Compatible avec MS WinWord 
(format RTF). Les fonctions de style 
sont assez puissantes et améliorées par 
rapport au Sériés 3. Un reproche, F im- 
possibilité de faire du multi colonnage. 
(Notez que cet article a été tapé dans le 
métro Parisien, aux heures de pointes... 
On peut donc bien parler de compati- 
bilité !) 

L’AGENDA 

6 modes accessibles avec la tou- 
che diamant : Jour, semaine, année (ca- 
lendrier), choses à faire, anniversaires, 
et une liste des enregistrements. Les 
alarmes sont des sons digitalisés en 
ROM ou vos propres sons réalisés avec 
F enregistreur de Sons. 


MONDE 

Planisfère donnant des renseigne- 
ments utiles sur différentes villes du Monde 
(indicatif téléphonique, heures lever/cou- 
cher du soleil, distance par rapport à une 
ville que l'utilisateur aura fixée comme 
base, décalage horaire...) Bien amélioré par 
rapport à la verion .Sériés 3. 

CALCULATRICE 

Pas mieux qu’avant !!! Les fonc- 
tions principales sont présentes, mais vous 
pouvez charger vos propres fonctions sous 
forme de modules que vous créez facile- 
ment grâce au langage de programmation 
OPL... 


LANGAGE OPL 

Langage dont la structure rappelle 
le Pascal (procédures, fonctions) et les ins- 
tructions, le Basic avancé. Très riche !!! 
Enfin, pour terminer, toutes les applications 
et les périphériques du Sériés 3 sont direc- 
tement compatibles avec le Sériés 3a. 

Un appareil à découvrir et à adopter abso- 
lument... 
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CALCUL DE DEVIS sur PSION sériés 3 

par Daniel TCHEKINIAN 


Ecrit pour le travail dans le plastique , ce logiciel permet de calculer un prix de revient au mètre HT et TTC ', suivant des 
épaisseurs et des couleurs différentes du EMMA, PC ( Altuglas , Plexiglas ), ainsi que le prix de la main d’oeuvre pour le 
polissage manuel ou mécanique , et la fabrication de capots , suivant un taux horaire à la minute près. Il est facile de 
l'adapter à un autre corps de métier ( métaux , bois, tissus etc...) Ce programme peut, de toute façon avoir un but péda- 
gogique, et montrer à quoi peut bien servir, sur un plan pratique , un ordinateur de poche. L 'auteur n ’a pas la prétention 
d'avoir créé un logiciel parfait, il engage même les personnes intéressées à le modifier et à l'améliorer : Vous pouvez le 


contacter au (T) 42.80.38.63 

PROC devis: 

LOCAL hS(18),aS(5) 

GLOBAL k%,q%,lo,la,q,a{30),x 
GLOBAL ep,ef,ec,pt,tx,ptr,pf,apr,avr 
GLOBAL mt,pd,mt1 ,mt2,mt3.mt4,mt5 
GLOBAL pdl ,pd2,pd3,pd4,pd5,ppd(30) 
GLOBAL 

t$(3),spl{30),pma r pma1 ,sxt(30),pdx(30),pxt,pxt1 
GLOBAL 

9dX30),ph(30),pch,pch1 .spq30),pdc(30),ppc i ppc1 
GLOBAL 

smi(30),pmi(30),pmir,pmir1,pcapot 
GLOBAL cl%,fm%,t,g%.qsph%,qs& 
GLOBAL 

d.ps,eps%,ep1,co%,qs%,psc,pscq 

GLOBAL 

dS^pm^tr.aprl ,temp%,nom$(1 28) 
GLOBAL 

nm$(255),dat${30),piec$(255) 

GLOBAL 

prix$(30),moiil${30),not$(255),titreS(30) 

dat$=LEFT$(DAT!MS,15) 

CLS 

gBORDER 1 

gAT 93,40 ;gSTYLE 9 :gPRINT «* 

DEVIS *» 

gAT 37,65 :gSTYLE 0 :gFONT 1 
:gPRINT «+ Vers 1,0-93 TCHEKINIAN 

Daniel» 

h$=»PDXLMCTURWSAOlFEKQ» 

DO 

BUSY «<Menu>»,3,4 
k%=GET 
IF k%=$122 
BUSY OFF 
mINIT 

mCARD «Matière», »Pmma 
coulé »,% P,» Pmma choc»,%D,»Pmma 
XT » ,%X,» Polyeartxnate» ,%L,» Miroir» ,%M 
mCARD 

«Ti3^”,»Capot>s° / cC,»Ttar0l>^%T;>>Ralsæge'>,3yj 

mCARD 

« Dweis»,»Remise«,%R,» Majoration»,' %W, »Vz 
sphère» ,%S, «Colles & Entretien», %A 
mCARD 

« Fichier», »Fiches»,%0,»lmage»,%! 
mCARD «Spécial», «Prix 
final», %F,» Mettre à 
<0>»,%E, «Surfaces/ 

Poids», %K, «Quitter», %Q 
k%=MENU 
I F k% 

a$=»p»+CHR$(k%) 

@(a$): 

ENDIF 

ELSEIF k% AND $200 
k%=(k%-$200) AND SFFDF 
k%=LOC(hS,CHR$(k%)) 

IF K% 

a$=»p»+MID$(h$,k%,1 ) 

@(aS): 

ENDIF :ELSE :ENDIF 

UNTILO 

ENDP 

PROC pP: 

REM * Pmma * 

CLS 

GIPRINT «PMMA COULE» 
dINIT «* PMMA coulé *» 
dTEXT «»,»Format 
standard(T0)»,S402 
dTEXT «», «Format découpé 
(TX)»,$402 


i PARIS. 

dTEXT « ransfo rmation (TS)»,$4Q2 
g%=DIALOG 

IF g%=2 :t$=»TCT :fm%=0 
ELSEIF g%=3 :î$=»TX» :fm%-20 
ELSEIF g%=4 :t$=»TS» :fm%=50 
ENDIF 

dINIT «Sélectionnez une entrée» 
dTEXT Incolore», $402 

dTEXT « »,»Blanc Diffusant», $402 
dTEXT Couleur» ,$402 

dTEXT « » , » F u m é » , $402 
g%^DIALOG 
IF g%-2 :cl%=0 
ELSEIF g%~3 :cl%=5 
ELSEIF g%=4 :cl%=10 
ELSEIF g%=5 :cl%=10 
ENDIF 
dt:: 

CLS 

AT 1/1 ; PR INT «Nombre 

d’épaisseur(s)2»; :INPUT x 

IF x=0 

GOTO dt 

ENDIF 

DO 

qt: 

ep; 

PRINT «Longueur :1NPUT lo 
PR1NT «Largeur :!NPUTIa 

PRINT «Quantité :!NPÜT q 

spl{x)=(lo*la)*q 
mt1=spl{x)+1 

ppd{x)=(spl(x)*1.2)*ppd(x) 

pd1=ppd{x)+1 

ec=a{x)*cl%/100 :a(x)^a(x)+ec 
ef=a(x)*fm%/1 00 ;a(x)=a(x)+ef 
a(x)=spl(x)‘a(x) 
x=x-1 

UNTIL x=0 

gAT 133,10 :gBOX 107,29 :gAT 140,22 
gPRINT «Surf.=»,FIX$(mt1 ,2,- 
10),»m2“ 
gAT 1 45,34 

gPRINT «Pds=»,FSXS(pd1 ,2,-1 0),»Kg» 
pplex: 

ENDP 
PROC qt: 
épais:: 

AT 1,2 : PRINT «Epaisseur:»; :TRAP 

INPUT a{x) 

ep=a(x) 

IF a(x)<>1.5 AND a(x)<>2 AND 
a(x)<>3 AND a{x)<>4 AND a(x)<>5 
AND a(x)<>6 AND a(x)<>8 AND 
a(x)<>10 AND a(x)<>12 AND a(x)<>15 
AND a(x)<>20 AND a(x)<>25 
IF a(x)<>30 AND a(x)<>35 AND 
a(x)<>40 AND a(x)<>50 AND a(x)<>60 
AND a(x)<>70 AND a(x)<>80 AND 
a(x)<>1 00 AND a(x)<>1 1 0 AND 
a(x)<>120 AND a(x)<>150 AND 
a(x)<>180 AND a(x)<>200 AND 
a(x)<>250 
GOTO épais 
ENDIF :ENDIF 
ENDP 
PROC ep: 

IF a(x)=1.5 :ppd(x)-a{x) :a(x)=268.19 
ELSEIF a(x)=2 :ppd(x)=a(x) 
:a(x)=268.19 

ELSEIF a(x)=3 :ppd(x)=a(x) 

:a(x)=242.8 

ELSEIF a(x)=4 :ppd(x)=a{x) 


:a(x)=290.93 

ELSEIF a(x)=5 :ppd(x)=a(x) 
:a(x)=343.42 

ELSEIF a(x)=6 :ppd(x)=a(x) 
:a(x)=412.12 

ELSEIF a{x)=8 :ppd(x)=a(x) 
:a(x)=549.47 

ELSEIF a{x)=10 :ppd(x)=a(x) 
:a(x)=686.83 

ELSEIF a{x)=12 :ppd(x)=a{x) 
:a{x)=824.19 

ELSEIF a(x)=15 :ppd(x)=a(x) 

:a{x)=1 030.28 

ELSEIF a(x)=20 :ppd(x)=a(x) 
:a(x)=1373.67 

ELSEIF a(x)=25 :ppd(x)=a(x) 

:a(x)=1530 

ELSEIF a(x)=30 :ppd(x)=a(x) :GOTO 
a30 

ELSEIF a(x}=35 :ppd(x)=a(x) :GOTO 
a30 

ELSEIF a(x)=40 :ppd(x)=a(x) :GOTO 
a30 

ELSEIF a(x)=50 :ppd(x)=a(x) :GOTO 
a50 

ELSEIF a(x)=60 :ppd(x)=a(x) :GOTO 
a50 

ELSEIF a<x)=70 :ppd(x)=a(x) :GOTO 
a50 

ELSEIF a(x)=80 :ppd(x)=a{x) :GOTO 
a50 

ELSEIF a(x)=85 :ppd(x)=a{x) :GOTO 
a50 

ELSEIF a(x)=90 :ppd(x)=a(x) :GOTO 
a90 

ELSEIF a(x}=100 :ppd(x)=a(x) :GOTO 
a90 

ELSEIF a(x)=110 :ppd(x)=a(x) :GOTO 
a90 

ELSEIF a(x)=120 :ppd(x)=a(x) :GOTO 
a90 

ELSEIF a{x)=150 :ppd(x)=a(x) :GOTO 
a90 

ELSEIF a(x)=180 :ppd(x)~a(x) :GOTO 
al 80 

ELSEIF a(x)=200 :ppd(x)=a(x) :GOTO 
al 80 

ELSEIF a(x)=250 :ppd(x)=a{x) :GOTO 

a180 

ENDIF 

RETURN 

a30:: 

a(x)=75.350.2*a(x) ;RETURN 
a50:: 

a(x)=82.19*1.2*a(x) :RETURN 
a90:: 

a(x)=1 02,83*1. 2*a{x) :RETURN 
a180:: 

a(x)=1 27.38*1 ,2*a{x) :RETURN 

ENDP 

PROC pplex: 

tx^ai 1 )+a{2)-t-â(3)-t-a(4)+af 5)-Ha(6)+a(7)-i-a(8) 
+a(9)+a(1 0)+a(1 1)+a(12)+a(1 3)+a(14)+a(15) 
+a(l 6)+a{1 7)+a(1 8)+a( 1 9)+a(20)+a(21 )+a(22) 

+a( 23 )+a( 24 )+a( 25 )+a( 26 )+a( 27 ) 4 a( 28 )+a( 29 ) 

+a(30) 

pma=tx :pma1=pma 
AT 1,6 :PRINT «Prix du 
pmma» T »(«;t$:»)»;»:»,FIXS(pma1 ,2.- 
10 ) 

AT 1,7: PRINT 

«T.V.A. :».FIX$(pma1*1 8.6/ 

100,2,-10) 


gAT 0,66 :gLINEBY 280,0 
AT 1,9 : PRINT 

«T.T.C._ :»,FIXS(pma1 ‘1 .1 86,2,- 

10 ) 

ENDP 
PROC pD: 

REM * Pmma choc * 

CLS 

GIPRINT «PMMA CHOC» 
dINIT «* PMMA CHOC *» 
dTEXT «», «Format standard» ,$402 
dTEXT «»,»Format découpé», $402 
g%=DIALOG 

IF g%=2 :t$=»T0" :fm%=0 
ELSEIF g%=3 :t$=»TX» :fm%=20 

ENDIF 

dt:: 

AT 1 ,1 :PRINT «Nombre 

d'épaisseur(s):»; :INPUT x 

IF x=0 

GOTO dt 

ENDIF 

DO 

qtcho: 

epch: 

PRINT «Longueur:»; :INPUT lo 
PRINT «Largeur :»; :INPUT la 
PRINT «Quantité :»: :INPUT q 
sch(x)=(lo*la)*q :mt2=sch(x)+î 
ph(x)=(sch(x)*1 .2)*ph(x) 
pd2=ph(x)+1 
ef=a(x)*fm%/100 
a(x)=a(x)+ef :a{x)=sch(x)*a(x) 
x=x-1 

UNTIL x=0 
gAT 133,10 
gBOX 107.29 
gAT 1 40,22 

gPRINT «Surf.=»,FIX$(mt2,2,- 

10),»m2" 

gAT 145,34 

gPRINT «Pds=»,FIX$(pd2,2,-10),»Kg» 
pchoc: 

ENDP 

PROC qtcho: 
épais:: 

AT 1,2 : PRINT «Epaisseur:»; :TRAP 

INPUT a(x) 

ep=a(x) 

IF a(x)<>3 AND a(x)<>4 AND a(x)<>5 

AND a(x)<>6 AND a{x)<>8 AND 

a(x)<>10 AND a(x)<>12 AND a(x)<>15 

GOTO épais 

ENDIF 

ENDP 

PROC epch: 

IF a(x)=3 :ph(x)=a{x) :a(x)=356.18 
ELSEIF a(x)=4 :ph(x)=a(x) 
:a(x)=447.17 

ELSEIF a(x)=5 :ph(x)=a(x) 
:a(x)=526.45 

ELSEIF a(x)=6 :ph(x)=a(x) 

:a(x)=631 .74 

ELSEIF a(x)-8 :ph(x)=:a(x) 
:a(x)=830.19 

ELSEIF a(x)=10 :ph(x)=a(x) 

:a(x)=1 053.04 

ELSEIF a(x)=12 :ph(x)=a(x) 
:a(x)=1263.45 

ELSElF a(x)=15 :ph(x)=a{x) 

:a(x)= 1586.46 

ENDIF 

ENDP 
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ELSEIF a(x)=2,5 :pdx(x}=a(x) 


m "-Z. M:. 


ÆOmputïhs ^ ^ * |§' & 

«CALCULDE 

f ....... 

PROC pchoc: 

tx=a( 1 )+a(2)+a(3)+a(4)+a(5)+a(6}+a(7)+a(8) 
+a(9)+a(10)+a(1 1 )+a(12)+a(13)+a(14F-a(15H- 
a( 1 6}+a(17)+a(1 8)+a(1 9)+a(20)+a(21 )+a(22) 
+a(23)+a(24)+a(25)+a(26)+a(27)+a(28)+a(29) 
+a(30) 

pch=tx :pch1=pch 
AT 1,6 :PRINT «Prix du 

choc»,»{«;t$;»)»;»:»,FIX$(pch1,2,-10) 

AT 1 ,7 :PRiNT 

«T.V.A. >,FIX$(pcb1*18.6/ 

100 , 2 ,- 10 ) 

gAT 0,66 :gLINEBY 280,0 
AT 1,9 :PRINT 

«TTC, :»,FIX$(pch1 *1 1 86,2,- 

10) 

ENDP 
PROC pX: 

REM * Pmma XT * 

CLS 

GIPRINT «PMMA EXTRUDE» 
diNÎT «* PMMA XT *» 
dTEXT «», «Format 
standard{T0)»,$4Q2 
dTEXT «», «Format découpé 
(TX)»,$402 

dTEXT «», “Transformation (TS)»,$402 
g%=DIALOG 

IF g%=2 :t$=»T0" :fm%=0 
ELSEIF g%=3 :t$=»TX» :fm%=20 
ELSEIF g%=4 :t$=»TS» :fm%=50 
ENDIF 

diNIT «Sélectionnez une entrée» 
dTEXT «»,» Incolore», $402 
dTEXT «», «Blanc diffusant & 

Opaque» ,$402 

g%=DIALOG 

IF g%=2 :cl%=0 

ELSEIF g%=3 :cl%=5 

ENDIF 

dt:: 

AT 1,1 :PRINT «Nombre d’épaisseur(s) 

d'XT ?:»; :INPUT x 

IF x=Û 

GOTO dt 

ENDIF 

DO 

qtXT: 

epXT: 

PRINT «longueur :»; :INPUT lo 
PRINT «Largeur :INPUT la 
PRINT «Quantité :»; :INPUT q 
sxt(x)=(lo*la)*q 
mt3=sxt(x)+1 

pdx(x)=(sxt(x)*1 .2)*pdx(x) 

pd3=pdx(x)+1 

ec=a(x)*cl%/100 

a(x)=a(x)+ec :ef=a(x)*fm%/100 

:a(x)=a{x)+ef 

a(x)=sxt(x)"a{x) 

X— x-1 

UNTIL x=0 

gAT 133,10 :gBOX 107,29 :gAT 140.22 
gPRINT «Surf.=»,FIX$(mt3,2,- 
10),»m2" 
gAT 146,34 

gPRINT «Pds=»,FIX$(pd3,2,-10),»Kg» 
pXT: 

ENDP 

PROC qtXT: 
épais:: 

AT 1,2 :PRINT «Epaisseur:»; :TRAP 

IN PUT a(x) 

ep=a(x) 

IF a(x)<>1.5 AND a(x)<>2 AND 

a(x)<>2.5 AND a(x)<>3 AND a(x)<>4 

AND a(x)<>5 AND a(x)<>6 

GOTO épais 

ENDIF 

ENDP 

PROC epXT: 

IF a(x)=1.5 :pdx(x)=a(x) :a(x)=1 13.26 
ELSEIF a(x)=2 :pdx(x)=a(x) 

:afx)=1 38.48 


:a(x)=165.58 

ELSEIF a(x)=3 :pdx(x)=a(x) 

:a(x)=1 88.83 

ELSEIF a(x)-4 :pdx(x)=a(x) 
:a(x)=244.68 

ELSEIF a(x)=5 :pdx(x)=a(x) 
:a(x)=3Û5.86 

ELSEIF a(x}=6 :pdx(x)=a(x) 

:A(x)=367.01 

ENDIF 

ENDP 

PROC pXT: 

tx=a(1)+a(2)+a(3)+a(4)+a(5)+a(6)+a(7)+a{8)+ 
a(9)+a(1 0)+a(1 1 )+a( 1 2)+a<1 3)+a( 1 4)+a(1 5>+- 
a( 1 6)+a( 1 7)+a( 1 8)+a( 1 9)+a(20)+a(21 )+a(22)+ 
a(23)+aiJ24)4a(25y+af6)tia(27}+a(28)+a(29)4a(30) 
pxt=tx :pxt1=pxt 
AT 1,6 :PRINT «Prix de 
rXT»,»(«;t$;»)»;»:».FIX$(pxt1,2,-10) 

AT 1,7 :PRINT 

«TVA > ,FIX$(pxt1 *1 8.6/ 

100 , 2 ,- 10 ) 

gAT 0,66 :gLINEBY 280,0 
AT 1,9 :PRÎNT 

«TT C : », FIX$(pxt1 *1.1 86,2,- 

10 ) 

ENDP 
PROC pL: 

REM * Polycarbonate * 

CLS 

GIPRINT «POLYCARBONATE» 
diNIT POLYCARBONATE *» 
dTEXT «», «Format standard» ,$402 
dTEXT «», «Format découpé», $402 
g%=D!ALOG 

ÎF g%=2 :t$=»T0" :fm%=0 
ELSEIF g%=3 :t$=»TX» :fm%=20 
ENDIF 

diNIT «Sélectionnez une entrée» 

dTEXT «», «Incolore», $402 

dTEXT «», «Blanc diffusant» ,$402 

dTEXT «», «Fume», $402 

dTEXT «», «Granité incolore», $402 

g%=DIALOG 

IF g%=2 :cl%=0 

ELSEIF g%=3 :cl%=5 

ELSEIF g%=4 :cl%=10 

ELSEIF g%=5 :cl%=12 

ENDIF 

dt;: 

AT 1,1 :PRINT «Nombre 

d’épaisseur(s):»; :INPUT X 

IF x=0 

GOTO dt 

ENDIF 

DO 

qtpc: 

eppc; 

PRINT «longueur :»; :INPUT lo 
PRINT «Largeur :»; :INPUT la 
PRINT «Quantité :INPUT q 
spc(x)={lo*la)*q 
mt4=spc(x)+1 
pdc(x)=(spc(x)*l .2)*pdc(x) 
pd4=pdc(x)+1 

ec=a(x)*fm%/100 :a{x)=a(x)+ec 
:ef=a(x)*cl%/1 00 
a(x)=a(x)-§-ef :a(x)=spc(x)*a(x) 
x=x-1 

UNTIL x=0 

gAT 133,10 :gBOX 107,29 :gAT 140,22 
gPRINT «Surf.=», FIX$(mt4 .2 
10),»m2“ 
gAT 145,34 

gPRINT «Pds=»,FIX${pd4 r 2,-10),»Kg» 
ppc: 

ENDP 
PROC qtpc: 
épais:: 

AT 1,2 :PRINT «Epaisseur;»; :TRAP 

INPUT a(x) 

ep=a(x) 

IF a(x)<>1 AND a(x)<>1 .5 AND 
a(x)<>2 AND a(x)<>3 AND a(x)<>4 
AND a(x)<>5 AND a(x)<>6 AND 
a(x)<>8 AND a(x)<>10 AND a(x)<>12 


GOTO épais 

ENDIF 

ENDP 

PROC eppc: 

IF a(x)=1 :pdc{x)=a(x) :a{x)=121.95 
ELSEIF a(x)=1,5 :pdc(x)=a(x) 

:a{x)=1 76.26 

ELSEIF a(x)=2 :pdc(x)=a(x) 
:a(x)=240.79 

ELSEIF a(x)=3 :pdc(x)=a(x) 
:a(x)=355.51 

ELSEIF a(x)=4 :pdc(x)=a(x) 

;a(x) =479.27 

ELSEIF a(x)=5 :pdc(x)=a(x) 

:a(x)=596.3 

ELSEIF a(x)=6 :pdc(x)=a(x) 
:a(x)=713.15 

ELSEIF a(x)=8 :pdc{x)=a(x) 
:a(x)=946.96 

ELSEIF a(x)=10 :pdc(x)=a(x) 

:a(x)=1 181.1 1 

ELSEIF a(x)=12 :pdc(x)=a(x) 
:a(x)=1415 

ENDIF 
ENDP 
PROC ppc: 

tx=a(1)+a(2)+a(3)+a{4)+a(5)+a(6)+a{7)+a(8)+ 
a{9)+a(10)+a(1 1 )+a(12)+a(1 3)+a(14)+a(15)+ 
a(16)+a(17)+a(18)4a(19}-fa(20)+a{21)+a(22)+ 
a(23)+a(24)+a^5Ha(26)+a(27>+a(28)+a^9)+a(30) 

ppc=tx :ppc1=ppc 

AT 1,6 : PRINT «Prix du 

PC»,»(«;tS;»)»;»:»,FIX$(ppc1,2,-10) 

AT 1,7 :PRINT 

«T.V.A. :»,FIXS(ppc1*18.6/ 

100 , 2 ,- 10 ) 

gAT 0,66 :gLINEBY 280,0 
AT 1 ,9 :PRINT 

‘■TTC :»,FIX$(ppc1*1. 186,2,- 

10) 

ENDP 
PROC pM: 

REM * Miroir * 

CLS 

GIPRINT «MIROIR» 

diNIT «* MIROIR XT *» 

dTEXT ««,» Format standard», $402 

dTEXT «», “Format découpé», $402 

g%=DIALOG 

IF g%=2 :fm%=0 

ELSEI F g%=3 :fm%=25 

ENDIF 

dt:: 

AT 1,1 :PRINT «Nombre 

d’épaisseur(s):»; :INPUT x 

IF x=0 

GOTO dt 

ENDIF 

DO 

qtmir: 

epmir: 

lo:: 

AT 1,3 :PRINT «Longueur :»: :TRAP 
INPUT lo 
IF lo>2.44 
BEEP 3,300 

GIPRINT «Longueur maxi=2.440» 

:GOTO lo 

ENDIF 

la:: 

AT 1,4 PRINT «Largeur :»: :TRAP 
INPUT la 
IF la>1.22 
BEEP 3,300 

GIPRINT «Largeur maxi= 1.220» 

:GOTO la 

ENDIF 

PRINT «Quantité :INPUT q 

Smi(x)=(lo*la)*q 

mt5=smi(x)+1 

pmi(x)=(smi(x)’1.2)*pmi(x) 

pd5=pmi(x)+1 

ef=a(x)*fm%/1 00 :a(x)±a{x)+ef 

:a(x)=smi(x)*a{x) 

x=x-1 

UNTIL x=0 


gPRINT «Surf.=»,FIX$(mt5,2,- 

10),»m2" 

gAT 145,34 

gPRINT «Pds=»,FIX$(pd5, 2,-10), »Kg» 
pmir: 

ENDP 

PROC qtmir: 

épais:: 

AT 1,2 : PRINT «Epaisseur:»; :TRAP 

INPUT a(x) 

ep=a(x) 

1F a(x)<>2 AND a(x)<>3 

GOTO épais 

ENDIF 

ENDP 

PROC epmir: 

IF a{x)=2 :pmi(x)=a(x) :a{x)=432.86 

ELSEIF a(x)=3 :pmi(x)=a(x) 

:a(x)=474.97 

ENDIF 

ENDP 

PROC pmir: 

1x=a(1 }+a(2)+a(3)+a(4)+a(5)+a{6)+a(7)+a(8)+ 
a(9)+a(10)+a(1 1 )+a(1 2)+a(1 3)+a(14)+a(1 5)+ 
a(1 6)+a(1 7)+a(1 S)+a(1 9)+a(20)+a(21 )+a(22)+ 
a{23^24>ra(25M26:Ea(27>+d28M291+a(30) 
pmir=tx :pmir1=pmir 
AT 1,6 PRINT «Prix du 
miroir:»,FlX${pmir1,2,-10) 

AT 1,7 PRINT « 

T.V.A, :»,FlX$(pmir1 *18.6/1 00,2,-10) 
gAT 0,66 :gL!NËBY 280,0 
AT 1,9 PRINT « 

T.T.C.:»,FIX$(pmir 1*1 .186,2,-10) 

ENDP 
PROC pT: 

REM * Travail * 

CLS 

GIPRINT «MAIN DOEUVRE» 

PRINT «Main d'oeuvre en mn>; 

:INPUT t :t=t*1 REM ** Prix H, T en 
minutes ** 

AT 1 ,3 PRINT «Travail 
H.T.:»,FlX$(t,2,-10) 

ENDP 
PROC pU: 

REM * Polissage * 

CLS 

GIPRINT «POLISSAGE» 
diNIT «Choix du polissage» 
dTEXT «», «Mécanique», $402 
dTEXT «»,» Manuel »,$402 
g%=DIALOG 
1F g%=2 :qtcot: 

GOTO mecan 
ELSEIF g%=3 :qtcot: 

GOTO manu 

ENDIF 

mecan:: 

PRINT «Prix au mètre:», :INPUT pm 
p4=p4*pm 

PRINT «Prix du polissage 
mécanique:», FIXS(p4, 2, -10) :RETURN 
manu:: 

pm=ep’1 REM ** Prix FIT à la minute 
p4=p4*pm 

PRINT «Prix du polissage 
manuel: » ) FIX$(p4,2, -10) 

ENDP 

PROC qtcot: 

REM " Nombre de côtés * 

qt:: 

dfNIT 

dLONG d&, «Nombre de c_tés;^.1 A 
IF D1ALOG=0 
GOTO qt 

ELSEIF d&=1 :qcot1: 

ELSEIF :qcot2: 

ELSEIF d&=3 :qcot3: 

ELSEIF d&=4 :p4=lo+b+la+la 

ENDIF 

ENDP 

PROC qcotl : 

REM * Questions 1 c tés * 

diNIT «Séléotionner un côté» 
dTEXT « » , » Longue u r » ,$402 



gAT 133 f 10 :gBOX 107,29 :gAT 140 ; 22 
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ciT EX T «»,» Largeur» ,$402 
g%=DIALOG 
IF g%~2 :p4=lo 
ELSEIF g%=3 :p4-la 


PRINT «Nombre de capot ?:»; JNPUÏ 
x 

IF x=Q 
GOTO dt 
ENDIF 
épais:: 

DO 


dTEXT «»,»Quitî6r»,$4Q2 
g%=D!ALOG 
IF g%=2 :sphV: 

ELSEIF g%=3 :GOTO qt 
ELSEIF g%=4 : devis: 
ENDIF 
qt:: 


psph: 

totsph: 

ENDP 

PROC psph: 

LOCAL 

j f k,l T m ] n t o P q J r f s > t T u 
a^1 17.38 :REM 90 à 100 


ENDIF 

ENDP 

PROC qcot2: 

REM * 2 C^tés * 

dîNIT «Séiëctionner les côtés» 

dTEXT «» ) »Longueur+largeur»,$402 

dTEXT «»,»LGngueur+longueur»,$4Q2 

dT EXT « » , » Largeu r+largeu r» , $402 

g%=DIALGG 

IF g%=2 :p4=lo+la 

ELSEIF g%=3 :p4=lo+lo 

ELSEIF g%=4 :p4=la+la 

ENDIF 

ENDP 

PROC qcot3; 

REM * 3 Côtés * 
dINIT «Séléctïonner un côté» 
dTEXT «»,»2 iongueurs+1 Lar- 
geur» F $402 

dTEXT «»,»2 largeurs +1 lon- 
gueur», $402 
g%=DIALOG 
IF g%=2 ;p4=io+lo+la 
ELSEIF g%=3 :p4=!a+!a+!o 
ENDIF 
ENDP 
PROC pf: 

REM * Affichage Final * 

LOCAL r% 

CLS 

GIPRINT «PRIX FINAL» 
g AT 0,4 igLiNEBY 280,0 
pf ™pma+pch4 pxt+ppc+pmir 


AT 1,2 
PRINT 

«Matière :»,FfX${pf,2,- 

10),»frs » 

PRINT 

« C apot : », F I X$(pca pot , 2 , 

10),»frs» 

PRINT «1/2 

sphère _:»,FIX$(ps 1 2r10) 1 »frs» 

PRINT 

«Polissage :» 1 FlX$(p4,2 3 “ 

10),»frs» 

PRINT «Main 

d'oeuvre _:» t F1X$(t,2,-1 0),»frs» 


pf=pf+pcapot+ps+t+p4 
g AT 0,58 :gLINEBY 280,0 
AT 1,8 

PRINT «TOTAL 

H.T.V.A. : » , F I X$(pf ,2 ,- 1 0) T »f rs» 

gAT 0,75 :gLINEBY 280,0 
r%=GET 

dINIT «SAUVER DEVIS» 

dBU i TONS « Non» J %N f »Oui»,%0 

r%=DIALOG 

IF r%=0 

RETURN 

ENDIF 

IF r%= 1 1 1 

prîx$~FlX$(pf, 2,-10) 
titre$=»Sauver devis» 

OPEN 

« M :dieits» , A,nnr]$ s dal$ s piæ$ + prix$,mou$, not$ 
IF affd%: 

A.nm$=nm$ :A.dat$~daî$ 
:A.piec$-piec$ 

A.prix$=prix$ :A.moul$=moul$ 
:A.notS=not$ 

APPEND 
CLOSE 
ENDIF : ENDIF 
ENDP 
PROC pC: 

REM * capot * 

LOCAL h s sc s slp 3 sïp1 ,surfcapo,d,toc 

GIPRINT «CAPOT» 

dt:: 

CLS 


qt: 

ep: 

PRINT «Longueur(dessus)>; :INPUÏ 
lo :lo=lo+.01 

PRINT «Largeur (dessus):»; :INPUT la 
:la=la+,01 

PRINT «Hauteur >; :INPUT h 
sc=lo1a :slp-(lo*h)*2 :sip1~(1a*h)*2 
surfcapo=sc+slp+slp1 
a(x)=surfcapo*a(x) :a(x)=a(x)+20% 
PRINT «Matière >,FIX$(a(x), 2,-10) 
x=x-1 

UNTIL x=0 

d={(lo+ta+h)*2.5)*1 REM ** Prix 
horaire H T ** 

PRINT «Travail :»,FIX$(d, 2,-10) 
tooa(1)+a(2)+a(3)+a(4)+a(5)+a(6)-î-a{7)+a(8) 
+a(9)+a(1 0)+a(1 1 }+a(12)+a(1 3)+a(14)+a(15H 
a(16)+a(1 7)+a(1 8)+a( 1 9)+a(20)+a(21 )+a(22>+ 
a(23M^)+a^^ 

pcapot=toc+d 

PRINT « » 

PRINT «Total H.T.:» 1 FIX$(pcapot 1 2 r - 
10 ) 

ENDP 
PROC pR: 

REM * Remise * 

CLS 

GIPRINT «REMISE» 

PRINT «Taux de remise:», JNPUT tr 
AT 1,1 :PRINT «Taux de remise 

:»,tr, »%» 

avr=pma+pch+pxt+ppc 
PRINT «Prix avant 
remise:»,FIX$(avr,2,-10) 
pmal =pma*tr/1 00 :prna=pma-pma1 
pch1-pch*tr/1üQ :pch=pch-pch1 
pxtl-pxrtr/100 :pxt=pxt-pxt1 
ppc1=ppc*tr/100 :ppc=ppc-ppd 
apr^pmal +pch 1 +pxt1 +ppd 
PRINT «Moins la remise 
>,FIX$(apr, 2,-10) 

PRINT « — 

— ■» 

aprl -pma+pch+pxt+ppc 
PRINT «Prix après 
remise>,F!X$(apr1 ,2,-10) 

ENDP 
PROC pW: 

REM * Majoration * 

CLS 

GIPRINT «MAJORATION» 

PRINT «Taux de majoration:», JNPUT 
tr 

AT 1,1 ;PRINT «Taux de majoration 

:»,tr,»%» 

avr=pma+pch+pxt+ppe 
PRINT «Prix avant 
majoration: »,F1X$(avr, 2,-10) 
pmal =pma*tr/1 00 :pma=pma+pma1 
pch1=pch*tr/100 :pch”pch+pch1 
pxtl-pxHr/IOQ :pxt-pxt+pxt1 
ppcl =ppc*tr/1 00 :ppc=ppc rppcl 
apr=pmal +pchl4pxt1+ppc1 
PRINT «Plus la majoration 
>,FIX$(apr,2r1Q) 

PRINT « — 

» 

aprl =pma+pch+pxt+ppc 
PRiNT «Prix avec majoration 
:»,F!X$(apr1 ,2,-10) 

ENDP 
PROC pS: 

REM * Demi-sphère * 

CLS 

GIPRINT «DEMI-SPHERE» 
dINIT «Sélectionnez une entrée» 
dTEXT «», «Chercher un diamè- 
tre», $402 

dTEXT «», «Calculer un prix», $402 


qs&=1 

dINIT 

dTEXT te», «Nombre de demi-sphère 

?»,2 

dLONG qs&, «Quantité «,1,1000 

IF DIALOG=0 
GOTO qt 

ELSEIF qs&>0 AND qs&<5 :qs%=0 
ELSEIF qs&>=5 AND qs&<=10 

:qs%=10 

ELSEIF qs&>=11 AND qs&<=15 
:qs%=20 

ELSEIF qs&>“16 :qs%=30 
ENDIF 

dINIT «Sélectionnez une entrée» 
dTEXT «», “Incolore», $402 
dTEXT «», »Blanc» ,$402 
dTEXT «», «Couleur» ,$402 
dTEXT ■< », "Altuglas choc», $402 
g%=DIALOG 
IF g%=2 :co%=0 
ELSEIF g%=3 :co%=5 
ELSEIF g%=4 co%=10 
ELSEIF g%=5 :co%=25 
ENDIF 

dINIT «Sélectionnez une entrée» 
dTEXT «»,» Epaisseur normale», $402 
dTEXT «», «Epaisseur modifiée»,$402 
g%=D!ALOG 
IF g%=2 :sphere: 

ELSEIF g%=3 :pNS: 

ENDIF 

ENDP 

PROC sphere: 
dt:: 

AT 1,1 :PRINT «Diamètre en m/m:», 

:INPUT d 

IF d<>50 AND d<>60 AND d<>70 AND 
d<>80 AND d<>90 AND dolOO AND 
do 105 AND do 120 AND do125 
AND do 133 

IF do 140 AND d<> 150 AND do160 
AND dol 68 AND d<>170 AND 
do 180 AND dol 95 AND do200 
AND do21 0 AND do215 AND 
d<>220 AND do230 AND d<>250 
AND d<>280 AND d<>285 
IF do300 AND d<>308 AND do310 
AND d<>320 AND d<>325 AND 
d<>330 AND d<>342 AND d<>346 
AND d<>350 

IF d<>358 AND d<>360 AND do380 
AND d<>400 AND d<>405 AND 
d<>420 AND d<>425 AND d<>440 
AND d<>450 AND do457 AND 
d<>463 AND d<>470 AND d<>500 
IF d<>523 AND d<>536 AND do546 
AND d<>550 AND d<>556 AND 
do565 AND d<>580 AND d<>600 
AND d<>630 AND d<>640 AND 
do650 AND d<>665 AND do670 
AND d<>698 AND d<>700 
IF d<>71 5 AND d<>720 AND d<>725 
AND d<>740 AND d<>760 AND 
do770 AND do800 AND d<>850 
AND d<>865 AND d<>875 AND 
d<>900 AND do915 AND d<>950 
AND d<>980 AND do996 
IF dol 000 AND dol 005 AND 
dolOIS AND dol 040 AND dol 085 
AND dol 100 AND dol 150 AND 
dol 172 AND d<>1 1 80 AND dol 200 
AND dol 350 AND do1400 AND 
dol 500 AND dol 630 AND dol 800 
AND d<>2000 AND do2150 
GOTO dt 
ENDIF :ENDIF 
ENDIF :ENDIF 
ENDIF :ENDIF 
ENDIF 


b= 120.65 REM 120 à 125 
C=1 24.26 :REM 133 à 150 
e=147.24 :REM 160 à 200 
f=1 65.87 :REM 210 à 250 
g=196.17 :REM 280 à 300 
h=226.23 :REM 308 à 350 
i=233.42 :REM 358 à 400 
1=256.44 :REM 405 à 450 
K=297.31 :REM 463 à 500 
1=343.01 :REM 523 à 550 
m=432.61 :REM 556 à 600 
n=534.88 :REM 630 à 698 (4m/m) 
0=570.07 :REM 700 à 740 
q=600.59 :REM 760 à 770 
r=749.04 :REM 850 à 875 
s=1 279.04 :REM 915 à 1005 
1=1443.3 :REM 1015 à 1100 
u=1 929.38 :REM 1150 à 1200 
q=749.04 :REM 850 à 875 
ep1=ep1 

IF d=50 :eps%=3 :ps=1 14.4 
ELSEIF d=60 :eps%=3 :ps=1 15.02 
ELSEIF d=70 :eps%=3 :ps=1 15.71 
ELSEIF d=80 :eps%=3 :ps=1 16.47 
ELSEIF d>=90 AND d<=100 :eps%=3 
;ps=a 

ELSEIF d=105 :eps%=3 :ps=1 18.81 
ELSEIF d=120 :eps%=3 :ps=b 
ELSEIF d=125 :eps%=3 :ps=b 
ELSEIF d>=133 AND d<=150 :eps%=3 
:ps=c 

ELSEIF d>=160 AND d<=200 :eps%=3 
:ps=e 

ELSEIF d>=210 AND d<=250 :eps%=3 
:ps=f 

ELSEIF d>=280 AND d<=300 :eps%=3 
:ps=g 

ELSEIF d>=308 AND d<=350 :eps%=3 
:ps=h 

ELSEIF d>=358 AND d<=400 :eps%=3 
:ps=i 

ELSEIF d>=405 AND d<=450 :eps%=3 
:ps=j 

ELSEIF d>=457 AND d<=500 :eps%=3 
:ps=k 

ELSEIF d>=523 AND d<=550 :eps%=3 
:ps=l 

ELSEIF d>=556 AND d<=600 :eps%=3 
:ps=m 

ELSEIF d>=630 AND d<=698 :eps%=4 
:ps=n 

ELSEIF d>=700 AND d<=740 :eps%=4 
:ps=o 

ELSEIF d>=760 AND d<=770 :eps%=4 
:ps=q 

ELSEIF d=800 :eps%=4 :ps=634 08 
ELSEIF d>=850 AND d<=875 :eps%=4 
:ps=r 

ELSEIF d=900 :eps%=4 :ps=775.08 
ELSEIF d>=915 AND d<=1 005 
:eps%=5 :ps=s 

ELSEIF d>=1015 AND d<=1 100 
:eps%=5 :ps=t 

ELSEIF d>=1 1 50 AND d<=1 200 
:eps%=5 :ps=u 

ELSEIF d=1350 :eps%=6 :ps=2337.7 
ELSEIF d=1400 :eps%=6 :ps=2505.46 
ELSEIF d=1500 :eps%=6 :ps=2970.89 
ELSEIF d=1630 :eps%=6 :ps=3329.3 
ELSEIF d=1 800 :eps%=6 :ps=4313.02 
ELSEIF d=2000 :eps%=6 :ps=4852.68 
ENDIF 
ENDP 

PROC totsph: 

psc=ps*co%/1 00 :ps=ps+psc 
:pscq=ps‘qs%/1 00 :ps=ps-pscq 
CLS 

PRINT «Nombre de sphère .:»,qs& 
:REM qsph% 

PRINT «Diamètre .:»,d 
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m m a 


:A.piec$=piec$ 

A.prixS=prix$ :A.moul$=moul$ 
:A not$=notS 


dEDIT moul$, «Moule:», 25 
dEDIT not$.» Notes: >*,25 


PRINT ^Epaisseur eps% 

PRINT «Unitaire 

H.T. :» ,FIX$(ps,2,-10), »frs» 

gAT 0,40 :gLINEBY 280,0 
ps=ps'qs& 

AT 1,6 

PRINT «Total 

HT. > ,FI X$(ps,2, - 1 0) , »frs » 

ENDP 
PROC pNS: 

REM * MODIF EP. SPH. * 

CLS 

qt:: 

AT 1,1 PRINT «Diamètre à modifier:», 

:TRAP INPUTd 

IF d<50 

BEER 3,300 

GOTO qt 

ENDIF 

psph: 

PRINT «Nouvelle épaisseur:», :INPUT 
epl 

ps=(ps/eps%)*ep1 :eps%-epl 
totsph: 

ENDP 

REM * FICHIER * 

PROC pO: 

LOCAL g% 

GIPRïNT «OUVERTURE DU 
FICHIER:CLIENTS» 

DO 

IF NOT EXiST(«clients») 

CREATE 

«M:clients»>,A,nmS.dat$,pec$,prix$,moul$,riot$ 

ELSE 

OPEN 

«M clients», A, nm$, dat$, piec$, prix$,moul$, not$ 
ENDIF 

dINIT «Sélectionnez une action» 
dTEXT «»,» Ajouter une fiche» ,$402 
dTEXT «»,»Editer une fiche», $402 
dTEXT «», «Nombre de fiches», $402 
dTEXT «», «Effacer une fiche» .$402 
dTEXT «»,» Retour», $402 
g%=DIALOG 
IF g%=2 rajout: 

ELSE IF g%=3 redit: 

ELSEIF g%=4 
CLS 

gAT 50,25 rgBORDER 3,145,30 

gAT 70,42 rgPRINT «Nombre de fiches 

:»,COUNT 

G ET 

CLOSE 

ELSEIF g%=5 :eff: 

ELSEIF g%=6 :CLOSE :devis: 

ENDIF 
UNTIL g%=0 
ENDP ' 

PROC ajout: 
nm$=»» :piec$=»>» 
prix$=»» :moul$=»» :not$=»» 
titre$=»Entrer une fiche» 

IF affd%: 

A.nm$=nm$ :A.dat$=dat$ 


APPEND 
CLOSE 
ENDIF 
ENDP 
PROC edi!: 

LOCAL rech${30),p% 

CLS 

dINIT «Trouver et éditer une fiche» 
dEDIT rech$,» Chercher», 15 
IF DIALOG 

IF FIND(«*»+rech$+»*»)=0 
ALERT(«Pas de fiche trouvée») 
CLOSE 

RETURN :END!F 
DO 

nmS-A.nmS :dat$=A.dat$ 
:piecS=A.piec$ 

prixS=A,prix$ :moul$=A.moul$ 
:not$=A.not$ 
titreS=»Editer fiche» 

IF affd%: 

UPDATE BREAK 
ELSE :NEXT :END!F 
FIND(«*»+rech$+»*») 

IF EOF 

ALERT(«Pas d autres fiches») 

BREAK :ENDIF 

UNTIL 0 : EN DI F 

CLOSE 

ENDP 

PROC eff: 

LOCAL rech$(30),p%,d% 

CLS 

dINIT «Trouver et éffacer une fiche 
dEDIT rech$, «Chercher». 15 

IF DIALOG 

IF FIND(«‘»+rech$+»*»)=0 
ALERT(«Pas de fiche trouvée») 
CLOSE 

RETURN : ENDIF 
DO 

nm$=A.nm$ :dat$=A.dat$ 
:piec$=A.piec$ 

prix$=A.prix$ :moul$=A.moul$ 

:not$=A.not$ 

titre$=» Effacer fiche» 

IF affd%: 

dINIT «Effacer fiche ?» 

dBU TTONS «Non » ,%N , » Oui » ,%0 

d%=DIALOG 

IF d%=0 : RETURN :ENDIF 
IF d%— 1 1 1 :ERASE :BREAK 
ELSE :NEXT : ENDIF 
FIND(«*»+rechS+»*») 
iF EOF 

ALERT(«Pas d’autres fiches») 

BREAK :END!F :END!F 

UNTIL 0 :ENDIF 

CLOSE 

ENDP 

PROC affd%: 


RETURN DIALOG 

ENDP 

PROC pA: 

LOCAL ch%,d% 

GIPRINT «COLLES & ENTRETIEN» 
ch%=1 

dINIT «Colles & Produits d’entretien» 
dCHOICE ch%,»Altufix»,»S 
500gr:47.03,S 1kg:82.82,P10 
500gr:83.46,P12 1kg: 155.78" 
dCHOICE 

ch%, » Altugliss» , » 1 kg: 1 90. 1 7" 
dCHOICE 

ch%,»Altunet»,»400gr:25.20,4litres: 1 91 .98' 
dCHOICE ch%,»Altupol»,»N°1 
1kg:44.90,N“2 1kg:37.53" 
dCHOICE ch%,» Transfert 
3M»,» Largeur 12m/m:285.05. Largeur 
19m/m:451.37“ 

dTEXT « »,»<Tab> voir liste - <Esc> 

pour quitter» 

d%=DlALOG 

devis: 

ENDP 
PROC pE: 

LOCAL r% 

GIPRINT «EFFACER MEMOIRES» 
g FONT 1 ;gSTYLE 0 
dINIT «Remettre à 0 les variables» 
dBUT I ONS « Non » ,%N . «Oui» ,%0 
r%=D!ALOG 

IF r%=0 :RETURN : ENDIF 
IF r%= 111 

GIPRINT «Les variables sont remises 
à 0»,1 
pause -1 5 
devis: 

ENDIF 
ENDP 
PROC pK: 

CLS 

GIPRINT «SURFACES & POIDS» 
mt=mt1 +mt2+mt3+mt4+mt5 
:pd=pdl+pd2+pd3+pd4+pd5 
gAT 45,20 :gBORDER 3.150,40 
gAT 65,38 :gPRINT 
«Sudace:»,FIX$(mt.2,-10),»m2" 
gAT 78,48 :gPRINT 
«Poids:»,FIX${pd.2,-10),»Kg» 

ENDP 
PROC pQ: 

REM * FIN * 

LOCAL r% 

dINIT «Quitter ce programme ?» 
dBLJTTON S « Non », %N , » Ou i» , %0 
r%= DIALOG 

IF r%=0 :RETURN :ENDIF 
IF r%=111 :STOP : ENDIF 
ENDP 

PROC sphV: 

LOCAL ch%,d% 

ch%=l 

dINIT 


1 1881 ,1 20mm=120.66.125nTrte120.65, 133rrm= 
12426, 140mm=12428150nnm=1242&16Cnm= 
14724,1 68rnm=1 4724,170mm=14724,180mm= 
147.24,1 95mm=147. 24" 
dCHOICEch%,»Diamètie200à346' , ,»200mm= 
14724210mm=1 65.8721 5nm=1 6587,220nm= 
1 65.87 230nm=1 6587250rrm=1 65.87 280rnm= 
19617 285mm=1 96. 1 7,3C0mrn=1 96.1 7,306mm= 
22623, 310mm^23320nTT^2a623325rrrn= 
22623,33Chïn=22623,342nuTV=226.23,346nm= 
226.23'' 

dCHOICEch%,»Diamètre350à536“,»350mm 
^2623,358hriT=233.42360mm=233.42,380mrTi 
=2334240Cmm=233.424C6mm=256.44,420nTn 
=256.44, 425rrm25644,440rmte256.44,45ChTn 
=256.44, 457nrn=297.31 ,463mm=297.31 ,47Cmm 
=297.31 ,500mn=23731 S23rrm343.01 ,536nm 
=343.01" 

dCHOICEch%,»Diamètre546à725",»546mm 
=34301 54âTrn4343O136550rrrt=4326156Ernm 
=432.61 ,580mm=43261 .600rrtn=43261 ,63Crrm 
=53483, 64Chrn=534.88,650mm=534.88,666rrrn 
=534S8670mm=534.88.698rm>^.88,7IXmm 
=570.07,7 1 5mniY370.CP.720nTnT>70,07.725rriT! 
=570.07" 

dCHOICEch o /o,»Diametre740à1015",»740mm 
=570,07760rrrT>=570.C7,770rrm=570.(I7 I 80ClTrn 
=634.08, 850mm=;749.04.865rtTn=749.04.875nnm 
=74904, 90Cmrt=775.0891 5rrm=1 279.04SBCtmn 
=1 27X4æ3nTt1279mæÊhTn=129m,1 OCChm 
=1 279.04,1 005mm=1279.04,1 015mm=1 443,3' 
dCHOICEch%,»Diamètre1040à2000'',» 
1 040mm=1 443 .3,1 085mm=1 443.3,1 ICOmm 
=1443.3,1 150mm=1 929.33,1 172mm= 

1 929.33,1 1 80mm=1 929.33, 1200mm= 

1 929. 33 , 1 350m m=2337.7, 1 400mm= 

2505.46,1 500mm=2970.89,1630mm= 

3329.3, 1 800mm=431 3.02,2000mm=4852.68' 1 

dTEXT «»,»<Tab> voir liste 

<Esc> pour quitter» 

d%=DIALOG 

devis: 

ENDP 
PROC pi: 

LOCAL r% 

GIPRINT «CHARGER DESSIN» 
dINIT «Effacer écran ?» 
dBUTTONS « Non », % N , » Oui ». %0 
r%=DIALOG 

IF r%=0 :GOTO Charge:: : ENDIF 

IF R%=1 1 1 

CLS 

Charge:: 

dINIT 

dTEXT «», »Dessin à charger» .$102 
dFILE nom$, “Charger:», 16 
DIALOG 
IF nomSo» » 

temp%=gLOADBIT(nom$) 
gUSE 1 
gAT 0,0 

gCOPY temp%,0, 0,240, 90,2 
gCLOSE temp% 

GIPRINT 

■<Dessin»+CHR$(34)+RIGHT$(nom$.12) 

+CHR$(34) 

ENDIF :ENDIF 
ENDP 


dINIT titres 

dEDIT nm$,*> Nom:», 25 
dEDIT dat$,» Date:», 25 
dEDIT piec$.» Pièce:», 25 
dEDIT prix$.»Prix >.25 


dCHOICEch%,»Diamôtre50à195",»50mm= 
1 14.4,60mm=1 15.02,70mm=1 1 5.71 ,80mm= 
1 16.47, 90mm=1 1 7.38.1 00mm=1 17.38, 105mm= 


Logiciel «Herbier» pour PSION sériés 3. 


.Vkttie des arbres ou un herbier dans sa poche, c est possible aujourd'hui, grâce nos petits compagnons de ions les jours: les ordinateurs de poche. Le 
PSION sériés 3 ce prête patfaitcmcnl a cette application. Ses possibilités graphiques plus que correctes (encore meilleures sur le nouveau PSION séries 3a...), sa 
gestion des menus, sa mémoire, permettent d’avoir accès toute une bibliothèque de dessins, de définitions, de nomenclatures dans un volume vraiment 
très réduit (une carte FLASH ou RAM), disponible a tout moment. Ce logiciel permettra aux enfants (et aux adultes...) d'avoir une visualisation d’arbres 
de leuilles ci de fruits, d imprimer des fiches se rapportant aux feuilles trouvées au cours d'une sortie en famille ou pourquoi pas l'école avec le maître 
ou la maîtresse, pour se constituer un herbier. Une première version distribuée en diffusion libre, par POCHE COMPUTERS et le CLUB sériés 3. donnera 
un apeiçu du logiciel qui sera beaucoup plus complet par la suite, avec plus de 100 dessins et textes. D’autres logiciels de ce type peuvent être mis au point. Pour plus 
de renseignements contaciei Mi Daniel Tchekinian au 43 80 38 63 Paris. Programmeur en C ou eu Pascal bien venu pour mettre au point des programmes. 







cultiué 
t (prune), 
irtout, 

>P humides 
Ornées 


Nom: TCKEKINIRN 
Prénom Daniel 
Tel: 42 80 38 63 


Logiciel: © HERBIER 
Version: 1.01 Sept. 93 



ftfcritoUerrM, : arbre fruit* 
1er à fleurs blanches ou roses 
paraissant ayant les feuilles, 
cultivé pour ses fruits. 
Feuilles caduques, cordées à 
la base, 

Fanille des rosacées. 
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BIORYTHMES POUR SERIES 3 

par Gilles JEAN 



APP Bio 

type 3 
path»\bio» 
ext «bio» 

icon «biorythm.pic» 

EN DA 

PROC start: 

global file$(128),t$(1) 

global nom$(1 2),dn&,dj& 1 d&,p%,.e%,i% 

giprint»Gilies JEAN - Shareware diffusable v1.2F» 

dj&=days(day,month,year) 

init: 

gfont 1 

gstyle 0 

do 

look on 
dinit 

dposition 1,-1 
ddate 

d|&, >* Aujourd’hui», days(1 ,1,1 900), days(31, 12, 2049} 
ddate dn&,»Date de 

naissance», days(1,1 ,1900), days(31 ,12,2049) 
dédit nom$,»Nom»,12 
if dialog 

if dn&>dj& 

giprint»Date de naissance > date du jour 
else 



d&=(dj&-dn&) 

affi: 

endif 

else 

if t$=»C» 

amom$~nom$ 
a.dn&=dn& 
append 
eiseif t$=»0» 

if a.nom$<>nom$ or a.dn&odn& 
a.nom$=nom$ 
a.dn&=dn& 
update 

endif 

endif 

break 

endif 

until 0 
lock off 


gat 0,0 

gborder 3204,45,45 
gat 0,45 

gborder $204,240,35 
gat 5,20 
gstyle 8 

gprintb»Bio».35.3 
gstyle 0 
gat 5,35 

gprintb»rhytme»,35,3 
gat 85,44 :gprinî»-100‘ l 
gat 185,44 :gprint»+100" 
gat 5,55 :gprintb 
«Physique», 60 

qat 5,65 :gprintb 
«Emotif», 60 

gat 5,75 igprintb 


«C,r,brai»,60 

if tS=»C» 

trap mkdir 

left$(file$,12) 

create 

file$,a,nom$,dn& 


nom$=»????????» 
eiseif t$=»0» 
open 

file$,a,nom$,dn& 

nom$=a.nom$ 

dn&=a.dn& 

d&=(dj&-dn&) 

affi: 

endif 


setname file$ 

ENDP 


ENDP 
PROC affi: 

gat 100,47 :gpatt -1,100,8,3 
gat 100,57 :gpatt -1,100,8,3 
gat 100,67 :gpatt -1,100,8,3 
p7o=int(sin{2*pi*(d&-(d&/23*23))/23)*100) 
e%=int(sin(2*pi*(d&-(d&/28*28})/28)*100) 
i%=int(sin(2*pi*(d&-(d&/33*33))/33)*100) 
gat 100,47 igfill int((100+p%)/2),8,0 
gat 100,57 :gfill int((100+e%)/2),8,0 
gat 100,67 :gfiil int({100+i%)/2),8,0 
gat 205,55 :gprintb num${p%,4)+»%»,30,1 
gat 205,65 :gprintb num$(e%,4)+»%»,30,1 
gat 205,75 :gprintb num$(i%,4)+»%»,30,1 

ENDP 
PROC INIT: 

fiie$=cmd$(2) 

t$=cmd$(3) 




CLUB PSION 


.... ■■■*■ ■ . ■■ ■ . ’ 

Depuis ïfe pois de mai, les Psionistes peuvent se regrouper sous la ban- 
nière du club. ’ ■ -t ■ ^ x n t ■ H; " r 

Le but de ce club, indépendant aussi bien d'Aware que de Psion, est de 
i^lirbuper tous les utilisateurs de cet engin* passionnés de program- 
mation ou simples utilisateurs, et de diffuser la connaissance et les 
programmes existants pour le Psion* * • 

Les activités du club sont ou seront multiples % ® 

Edition d’un bulletin périodique ? ^ ^ | * ; ; & . .*■ ^ ■*. T # 1 4 » 

f Réunions des membres pour échange dRnfos, de programmés... f 

* Contacts avec les clubs utilisateurs en Bnfqpé. (OB en particulier) 

Pou^ adhérer ou pour tout renseignement : * h 

* * B Club sériés 3 : C/G Oiivier-MEDAM « ' 1 * : 7 i ? 

1 * * 11 bd Bonne Nouvelle 75002 PARIS * * 1 * 
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Le train et Le sériés 3 


ou ne perdez plus de temps à consulter vos horaires de train grâce à votre sériés 3a.. 


par Vincent LEGROS selon une idée de Jean Rémi LEGROS 


Vous connaissez tous le fameux système américain SOCRATE , acheté à prix d'or et employé par la SNCF, 
qui soit disant est sensé nous apporter du bien être dans nos déplacements par le rail On voit le résultat ! Eh 
bien voici la preuve qu'un programmeur français fait mieux et moins cher... Question : pourquoi nos très 
éclairés dirigeants n ' ont-ils pas pris la peine de consulter les frères LEGROS ! on vous le disait , la FRANCE 
est le centre du monde pour la programmation !!! ouh là que le chauvinisme ne m'étouffe pas ! 

N'avez vous jamais cherché autour de vous les fiches horaires SNCF pour savoir quel train prendre pour arriver 
à la réunion de M. Heintel à Paris, sachant que cette réunion commence à 10h30 précises ? A quelle heure prendre votre 
train en gare de la Part Dieu pour arriver à Paris sans être en retard ??? 

La seule réponse à ce type de d'interrogation est le système très performant de base de données du PSION sériés 3a... 

En cl 1 et, le S3a propose une recherche sur un libelle, donc en utilisant judicieusement une base de données, vous pourrez 
avoir très rapidement la réponse à votre problème. 

lout d'abord, chargez la gestion de base de données dans le menu fichier, sélectionnez Nouveau. 

Donnez un nom à votre fichier, par exemple LYO-PAR pour les horaires Lyon-Paris, sachant qu'il faudra faire une autr 
base PAR43YO pour le retour. 

Editez les libellés (menu Editer) afin de paramétrer les champs de votre base de la manière suivante ; 

NUMERO DE TRAIN : SATOLAS TGV : PERRACHE : PART DIEU : VILLEFRANCHE : 

MACON VILLE : TOU R N US : CHALON SUR MARNE : CHAGNY : BEAUNE : DIJON 

MACON LOCHE TGV : LE CREUSOT : MASSY ; PARIS : CIRCULATION : 

Saississez les horaires de la manière suivante : LE CREUSOT 09:44. pour un train passant en gare du Creusot à 9h44 ( 
21 :44 s’il s'agit du soir). Une lois votre base de données terminée, l'Astuce arrive. 

Pour connaître les trains partant de Lyon Part Dieu pour être en gare de Lyon (Paris) vers I QhOO, effectuez une recherche sur 
le libellé (touche PSION+ R), puis Tab. Déplacez-vous pour sélectionner LYON PART DIEU et validez. 

Il vous sullit de taper 08 : et de valider, le Psion cherchera les trains vers 8h()0. 

Il ne vous reste plus qu'à vérifier si ce train circule bien à la date voulue (Circulation), et à prier que vous n’ayez pas fait 
d’erreurs de saisie. La base de données PARIS -> LYON et LYON ~> PARIS est disponible au club sériés 3. (sinon, il vous 
faudra la créer vous-même). Si cela était, merci de nous l’expédier pour en faire profiter tout le monde intéressé. 


e 


BEEPON 


par Vincent LEGROS 

Ce petit utilitaire permet de charger une ou deux images lors de l'allumage du Psion sériés 3a. Les instruc- 
tions avant le Call ($6c8d) seront exécutées lorsque Von presse (ON). 

Taper le programme en OPL - Transcoder S3a - inutile exécuter - Exécuter BEEPON - pour arrêter, se 
placer sur le nom du fichier et presser Eff - 

PROC beepon: 


Local a % (6 ) , i m % , te: n % ,i m 2 % , i 
fen%=gldentity 

im%=gLoadBit("\pic\IMAGE 1 ") 
i m2%=gLoad B i t("\pic\I M AGE2 " ) 

g use fen% 

«H- - ' 

gAt 0,0 

geopy im%,0,0, 1 25, 1 50,0 
gFont 12 
gStvle 9 


gAt 2023,0 
gBorder 1,277,160 


C-" 


gAt 300,50 

gPrint " PSION sériés 3" 
gAt 300,100 

geopy im2%,0,0, 1 29,37,0 
pause 90 

call ($6c8d):gUpdate 
While I 
do 


ge te vent a% 0 

ifa%( 1 )=$404:stop:endif:REMEteint 
tint il a%( 1 )=$403 
call($ 1 98d,0,0):gupdate 
beep 5,300:pause 10:bcep 5,500 
Pause 50 

call(S 1 98d, i 00,0):gupdate 
endwh 
EN DP 


Y. 


Avez-vous besoin de mémoire pour votre PSION sériés 3/3a ? 

comparez les prix !!! 

SSD RAM 128K : 790FttC SSD RAM 51 2K : 1690FttC SSD RAM 1MB : 2990FttC 

SSD FLASH 128K : 520FttC SSD FLASH 51 2K : 1290FttC 

SSD FLASH 1MB : 2290FttC SSD FLASH 2MB : 2990FttC 
MICROCARDS - 42220 BURDIGNES - TEL 77.39.68.13 FAX 77.39.19.60 


V 
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ANIMEZ VOS MACHINES GRAPHIQUES CASIO !!! 


par David WiNTER 

Dans cette première partie , nous allons voir comment afficher la plupart des caractères de 
la CASIO graphique n f importe où sur V écran . 



1) L'accès à la mémoire vive (RAM): 

La zone texte de l’écran est placée à un certain endroit clans 
la RAM de la machine. Il existe un moyen d’y accéder: les 
variables à indices, par exemple Z(400). Or, la machine 
interdit l’accès à ces mémoires au delà d’une valeur précise 
(qui varie selon la machine et le nombre de mémoires éten- 
dues configurées). Il faut donc faire une petite «magouille», 
simple, mais qui efface tous les programmes. La voici : c’est 
une succession de touches à presser. 


_ ? 
* 

_ <= 


- DEL 

- EXE 

- éteindre la machine 

- MODE 

- MODE 

- EXP 

- 3 

-AC 

- SHIFT 

- RANGE x 2 

- DEL 


-II 7 


Ces 4 dernières opérations sont à répéter jusqu’à obtenir 
6774 Bytes Free. En cas d’erreur, éteindre puis rallumer la 
machine. Vérifions l’accès libre aux mémoires : faisons 
MODE . EXE. On doit avoir: 

Program : 0 - aucun programme en mode 2 

Memory : 0 - toutes les mémoires sont accessibles 

x Bytes Free - nombre de pas libres sans programmes + 208. 

( par exemple, sous 8500, on a 6566 + 208 =6774 Bytes free). 


2) La zone de récran texte: 

Cette zone est délimitée par deux adresses qui varient selon 
les machines. Les voici : 


MACHINE 

Début 

Fin 

7000 

Z(183) 

Z( 1 98) 

7500 

Z(631) 

Z(646) 

8000 

Z(31 1) 

Z(326) 

8500 

Z(951) 

Z(966) 

Nous nous apercevons que les 8 lignes de 16 caractères de 
l’écran texte sont codées par 16 mémoires. Autrement dit, 
chaque mémoire représente 8 caractères. Voici le plan de 

cette zone texte. 

La variable n représente l’adresse du dé- 

but de la zone. 



n+ 16 

n + 14 

n + 5 n + 4 

n + 13 

n + 12 

1 n + 3 n + 2 

n + 1 1 

n + io 

n + 1 n 

n + 9 

n + 8 


n + 7 

n + 6 




3) Coda ge d’une zone de huit caractèr e s . 

Comme nous l’avons vu, l’affichage se fait par groupes de 
8 caractères. Il n'est donc pas possible d’en afficher moins 
de 8: il faudra mettre des espaces dans ce cas. 

Exemple : pour afficher "ABC" tout à droite du groupe, il 
faudra en fait afficher "uuuuuABC", où les "u" sont les es- 
paces. 

Le codage d'une mémoire n'est pas aussi simple. En effet, 
il y a une petite partie délicate. Tout d’abord, parlons des 
caractères affichables. 

Dans la mémoire, un caractère est codé sur 8 bits, donc son 
code est représenté par deux chiffres. Or ce code est en 
mode hexadécimal, c'est-à-dire que chacun des deux chif- 
fres du code d'un caractère varie de 0 à F en hexadécimal, 
donc de 0 à 15 en décimal. Voici une correspondance : 



Chaque code peut donc va- 
rier de 00 à FF: il v 256 co- 

* 

des possibles, donc 256 ca- 
ractères existants, or, seuls 
les chiffres compris entre 0 
et 9 sont accessibles avec le 
clavier de la machine: les ca- 
ractères dont le code com- 
prend une ou deux lettres (A 
à F ).ne pourront pas être af- 
fichés. 
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ANIMEZ VOS MACHINES GRAPHIQUES CASIO....ANIMEZ VOS MACHINES 



Voici à présent ie tableau des caractères affichables: 


o 

. 1 
2 

3 

4 

5 

6 

7 

8 


0 

!□ 


i 

J 


i i 

o 


p 

A 


t 

É 

I 

A 

Q 

a 

q 

B 


X 

TT 

2 

B 

R 

b 

r 

D 


3 

x 

ÿ 

# 

3 

C 

S 

c 

s 


X 

$ 

4 

D 

T 

d 

t 

g 


V 

y 

% 

5 

E 

U 

e 

u 


<— 

A 

& 

6 

F 

V 

r 

V 

O 


n 


7 

G 

W 

g 

w 

à 


8 

T 

S 

( 

8 

H 

X 

h 

x 

r 


9 

n 

) 

9 

I 

Y 

* 

î 

y 

T 

V 


9 apYÔeT0À]u 

Passons à présent au codage d’une mémoire. 

Le codage est sous le format d’un nombre décimal multi- 
plié par un exposant. Le mantisse et le signé du nombre 
changent suivant le code. 

Exemple: + 4,424344454647 E + 48. 

Première étape : décomposer les 8 caractères et inscrire en 
dessous de chacun leur code. Nous allons afficher 
«ABCDEFGH». 

On a alors: A B C D E F G H 

41 42 43 44 45 46 47 48 


Seconde étape: placer la virgule, les deux signes et l’exposant. 

A B C D E F GH 

41 42 43 44 45 46 47 48 

L’exposant se place entre les codes des deux derniers caractères. 
On a alors: A B C D E F G H 

41 42 43 44 45 46 47 E 48 


Placer la virgule entre les codes des deux premiers caractères. 
On obtient : A B C D E F G H 

41 . 42 43 44 45 46 47 E 48 


Remplacer le second chiffre du premier code par le signe 
+ ou - avec la touche +/- et le placer à gauche du premier 
chiffre du code. Il y a 4 combinaisons de signes suivant les 
valeurs du chiffre concerné: 

chiffre mantisse exposant 
0 + 

1 + 

5 

6 - + 

Dans notre cas, le chiffre est égal à 1 : nous placerons le 
signe + à gauche du 4 et on retire le 1 du code 4 1 , puis nous 
plaçons le signe + à gauche de l’exposant. 

Nous obtenons alors: + 4 . 42 43 44 45 46 47 E + 48 
ATTENTION : si le signe de l’exposant est -, il faut retran- 
cher 100 à l’exposant. Exemple : si l’exposant est E-20, il 
faut retrancher 100 à 20, donc on obtient: E-80 ... 

Le format du groupe exposant est: 

EXP. SIGNE VALEUR EXPOSANT 
E - ou + 20 par ex. 


Or la machine se fixe à 10 chiffres significatifs. Il faut donc 
faire des opérations sur le code. Dans notre cas, nous avons: 

4 , 424344454647E48 = 4.42434445E48+4647E36 

4) V isualisation d’un code de 8 caractères: 

11 faut stocker le code final dans une mémoire de la zone 
texte, puis, à votre choix: 

- appuyer deux fois sur G/T 

- faire " " (chaine vide). Ce cas est la seule façon de voir les 
codes dans un programme. 

( Si vous voulez vous servir de la touche £, il faut vérifier 
que le Range est correct). 

Par exemple, tapez: 

* 4. 42434445E48 + 4647E36 -> Z (95 1 ) 

* appuyer deux fois sur G/T 

* que voyez-vous en bas à droite ? HURRAAAH H U 
Un bon conseil: ne vous affolez pas, cette méthode néces- 
site de la patience et de l’habitude. 

5) Petit prog ramme p our iilust rer. 

( 87-99 + 2 -E - 12) x E 87 -> B 
( 87 -r- 99 + Z - E - 12 ) x E 20 -> C 
C - 67 E 8 -> D 
D - 6 7 E 10 -> E 
E - 6 7 E 12 -> F 
F - 67 E 14 -> G 
G - 67 E 1 6 -> H 
H - 67 E 1 8 -> I 
G -> A 
Lbl 0 

B -> Z [ n+1 +2A] 

A [ Int 7 Ran # + 1 ] -> Z [ n+2A ] 

A- 1 -> A 

A > 0 => Goto 0 
« « (chaine vide) 

G -> A 
goto 0 

Dans ce programme, la lettre n désigne l’adresse de départ 
de la zone texte. Sur la 8500G, elle vaut 951. 

6) Ajmurns de la méthode ét udiée dans ce chapitre: 

fout ceci a été découvert en branchant le bus de données de 
la RAM de la 8500, via un convertisseur PARALLELE->SE- 
RIE, sur le port série de mon PC que j’avais à l’époque (un 
vieux TO-16 à 8088 ...) 

Grâce à un programme que j’avais conçu, je pouvais voir à 
l’écran du PC ce qu’il se passait dans la RAM de ma CASIO 
8500. 

Dans l’article du prochain numéro de POCHE 
COMPUTERS, nous verrons comment jouer avec la partie 
graphique, et comment faire de petites animations. 
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connaître: les Accumulateurs 


par M. Viescou 


Les technologies évoluant vers la miniaturisation , permettent aux utilisateurs un degré de liberté supplé- 
mentaire dès lors que leurs appareils ne sont plus attachés par un fil au réseau électrique , mais alimentés par 
des piles ou des accumulateurs . 


Dans le cas d’applications utilisant peu d’énergie et ayant 
une grande autonomie (plusieurs mois ou plusieurs années), 
les piles constituent une source d'énergie idéale. 

En revanche, dans le cas d’applications de faible autonomie, 
(quelques heures ou quelques jours), le coût d’utilisation avec 
des piles devient prohibitif, et les appareils sont alimentés 
par des accumulateurs. 

Ainsi chacun d'entre vous est confronté à leur utilisation, et 
souhaiterait une autonomie la plus grande possible afin de 
limiter le nombre de recharges qui constituent une contrainte. 
11 est difficile de dire, du point de vue de l’application prati- 
que s'il vaut mieux recommander des piles ou des accumu- 
lateurs, car cela dépend toujours du type d’appareil utilisé. 
Spontanément, une R6 alcaline de bonne qualité a une capa- 
cité de plus de 2 AH alors qu’un accumulateur R6 Nickel 
Cadmium de base a 500 ou 600 mAH soit environ 4 fois 


moins. 

Il faut utiliser les accumulateurs a l’hydrure de nickel de 
1200 mAH pour arriver à une autonomie voisine ou supé- 
rieure à celle des piles. 

En effet, utilisés sur des régimes de décharge élevés et con- 
tinus, les accumulateurs de 1 200 mAH donneront 1 000 mAH 
alors que les piles de 2000 mAH ne donneront que 800 à 
900 mAH. De plus, si la tension d'arrêt de l'appareil, c’est- 
à-dire la tension au dessous de laquelle l’électronique ne fonc- 
tionne plus, est de 1,1 volt par élément, la pile alcaline ne 
fera plus fonctionner l’appareil alors qu’il lui restera encore 
40 à 50 % de sa capacité, cependant que F accumulateur dé- 
livre 100% de sa capacité à 1 ,2 volt par élément. 

Il est donc très difficile, des lors que la capacité d’une pile 
est donnée pour une tension minimale de 0,9 ou 1 volt par 
élément, de définir sa durée dans une application où la ten- 
sion d’arrêt serait de 1 , 1 volt par élément: sa capacité mesu- 
rée à la tension mini de 1 , 1 volt peut selon le débit n’être que 
de 50% de sa capacité à 0,9 volt, si son pallier se situe de 1 ,3 
à 0,9 volt. 

Enfin, l'avantage de la courbe de décharge à tension à peu 
près constante de F accumulateur, constituant un avantage 
pour le rendement de ce dernier, peut constituer un inconvé- 
nient en fin de décharge, car la tension va chuter rapide- 
ment, cependantqu’ avec une pile la tension varie très régu- 
lièrement. Lorsque les appareils sont dotés d'un système 
d’alerte de tension trop faible, l’utilisateur dispose d’une 
réserve de temps supérieure avec une pile qu'avec un accu- 
mulateur. 

Sur les appareils sophistiqués, les accumulateurs sont livrés 
à l’origine avec leur chargeur, c'est le cas des camescopes, 
des ordinateurs et imprimantes portables, des téléphones sans 



(ils et des téléphones cellulaires. 

Dans ce cas, chacun se conforme aux indications du manuel 
d’ utilisation. 

En revanche, lorsque l’utilisateur doit charger son accumu- 
lateur, il doit veiller à contrôler les caractéristiques techni- 
ques afin éventuellement de modifier la durée de charge, si 
la capacité de son nouvel accumulateur est différente de celle 
de son ancien. 

Si le chargeur est très sophistiqué, il chargera l’accumula- 
teur jusqu’à ce que la température ou la tension atteigne une 
certaine valeur, puis s'arrêtera pour charger de nouveau lors- 
que la température ou la tension seront redescendues au-des- 
sous d’un certain seuil caractéristique du type d'accumula- 
teur utilisé, ainsi on pourra laisser l’accumulateur en charge 
assez longtemps pour que la capacité maximum soit atteinte 
(et donc l'autonomie maximum) sans risquer de détériorer 
ce dernier par une surcharge abusive, le chargeur régulant de 
lui-même le courant fourni. 

Dans ces conditions, votre accumulateur pourra fonctionner 
de 500 à 1000 lois avec une détérioration de l’autonomie 
inférieure à 50%. 

Lors de la surcharge d’un accumulateur, l’électrolyte se dé- 
compose en oxygène et hydrogène, l'oxygène est absorbé 
sur une électrode mais pas l’hydrogène. La pression à F inté- 
rieur de l’accumulateur étanche augmente et pourrait le faire 
exploser s’il n’y avait pas une soupape de sécurité. En fait 
cette soupape s'ouvrira, et selon la position de l'accumula- 
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teur, laissera sortir les gaz mais probablement aussi de l’ élec- 
trolyte. Même si l'électrolyte n’endommage pas l’appareil, 
l’impédance de T accumulateur augmentera et sa puissance 
diminuera. 

Ainsi, dans une série cet accumulateur sera-t-il plus faible 
que les autres (moins de capacité après recharge). De surcroit, 
une électrode sera passivée et ce phénomène sera accentué. 
Il pourra arriver à 50% de sa capacité après seulement 10 ou 
20 cycles au lieu de 500 ou 1000. 

Dans la pratique, selon la tension à laquelle votre appareil 
s'arrête de fonctionner, la perte d’autonomie peut-être beau- 
coup plus rapide à cause de l’effet mémoire pour les accu- 
mulateurs au Nickel Cadmium. 

Dans ce cas, il est recommandé de charger votre accumula- 
teur, de le décharger rapidement et complètement, de le re- 
charger complètement et éventuellement recommencer cette 
procedure qui aura pour effet de diminuer cet effet mémoire 
lié à l'électrode de cadmium. Malheureusement, cet effet se 
reproduira après quelques cycles d’utilisation supplémen- 
taire et il pourra être nécessaire de renouveler ce «nettoyage» 
régulièrement. 

En revanche, avec les accumulateurs au plomb ou les accu- 
mulateurs à l’hydrure de nickel, cet effet n’existe pas. 

Si vous utilisez un chargeur du commerce, avec des accu- 
mulateurs de type R6 par exemple, et si l’appareil n’est pas 
très sophistiqué, vous serez obligé de contrôler la durée de 
la charge, et pour connaitre cette durée, il faudra connaître 
le débit de votre chargeur. 

En général les chargeurs de R6 débitent l/l()ème de la capa- 
cité d’un accumulateur R6 de base de 500 mA. soit 50 mA, 

/ i 

et la notice du chargeur vous demande de le charger pendant 
13 à 1 4 heures. 

Avec un tel chargeur, si vous achetez des accumulateurs R6 
nickel cadmium de 850 mAH, vous devrez les charger 850/ 
50 = 1 7 x 1 ,3 ou 1 ,4 = 22 à 24 heures pour obtenir une charge 
complète sinon en 14 heures vous ne chargeriez que 60% de 
la capacité et risqueriez de conclure que les 850 mAH ne 
donnent pas plus d’autonomie que les 500 mAH. 

Raison de plus si vous utilisez des accumulateurs R6 à l’hy- 
drure de nickel de 1200 mAH, vous risquez de ne les char- 
ger qu'a 40% si vous respectez les temps de charge du cons- 
tructeur de chargeur de 14 heures au lieu du temps calculé 
de 34 heures. 

Notamment pour cette raison, des chargeurs spécifiques pour 
accumulateurs à l’hydrure de nickel vont être mis sur le 
marché à la fin 1993. Ils seront dotés d'un circuit intégré 
calculant l’évolution de la tension de charge en fonction du 
temps et réagiront sur l’intensité de charge afin de charger le 
plus rapidement tout en évitant la surcharge, toujours preju- 
diciable a la bonne qualité des accumulateurs et limitant le 
nombre de cycles charge/décharge. 

Ce nouveau système d'accumulateurs nickcl/hydrure de nic- 
kel constitue sans nul doute le système d'avenir car non pol- 


luant et permettant, sans effet mémoire, de stocker dans le 
même volume le double de l'énergie du système nickel cad- 
mium standard et 30 à 40 % de plus que les dernières et 
ultimes versions du super N1CAD qui commencent à voir le 
jour et constituent l’étape ultime de ce que l’on peut faire en 
Nickel Cadmium. 

La figure ci-après montre après 190 cycles ce que donne 
un accumulateur hydrure de nickel par rapport à un accumu- 
lateur nickel cadmium qui aurait la même capacité donc un 
volume supérieur de 30 à 50 %. 


Memory Effect Test for NiMH Cylindricai Celi 

Discharge curve at 190th cycles 


Voltage (V) 



Enfin, en conclusion, il est tout fait possible d'utiliser ces 
accumulateurs à hydrure de nickel dans la plupart des mi- 
cros de poche (Sharp-Psion-Portfolio- Casio-HPetc...), puis- 
que leur tension maximum avoisinne les 1,5 volt à pleine 
charge. Pour les calculatrices, le problème résidera dans le 
fait quelles utilisent des piles plus petites de type AAAtrès 
souvent, or les accus hydrure de nickel ne sont pas, pour le 
moment disponibles dans cette catégorie. 

Quant à la charge ; elle est tout à fait possible avec un simple 
chargeur du commerce, à condition de laisser les accus en 
charge le temps adéquat. 


ff ACCUMULATEURS ULTRA PUISSANTS (1200 mA) 

;■ * <$5 "type R6 AA, tension nominale 1 : ,2y,tensiqn rqaxipale 1,5V , fii 
;:, t ¥ Rechargeables 100b fols iha%f uf dueommerce * !;i 
Se mettent en lieu et place des piles -sont écologiques car sans cadnium 
* : 'Applications : micros de :pbe|il rrtodèl isme'etc.. 1: ,* 

t * •" Prix : i à 2 unités :^P ttç#nrtiife s % * ¥ y? 

*" / * ; •• 3 à 5 unités : 4âF îtê unitaire y * i ' m 1 

f 4 : 6 à 10 unités : 40 F ttc unitaire . f " $. 

| |. yj au delà : 36 F ttc unitaire " f j f - i 

p- '■ ü : % Disponibles sur stock : J %. * * . * , ® 

t '' ; -, MICROÇARDS - 42220 BÜRDIGNÊS cedex % “ f * 4 ' 

'7 ^ !> ' : ' - téi 77.39.68.13 t y 


£owrp u Tt Pï 


HP 48 GX CONTRE... HP 48 SX 



par David Winten 


Il y a quelques mois encore , on prononçait HP 48 S ou HP 48 SX. Aujourd'hui, les choses ont 
changé : HEWLETT PACKARD nous a pondu ses derniers oeufs d'or. Ils s'appellent HP 48 G 
et HP 48 GX. Ces deux machines sont en train de rendre fous les éternels codeurs. 


La HP 48 G : par rapport à la HP 48 S, 
se distingue par sa ROM de 5 12 Ko qui 
comprend le logiciel EQL1B, aupara- 
vant réserve à la HP 48 SX, car dispo- 
nible uniquement sur carte. L’écran a 
changé : on passe au bleu et au mode 
hyper-contrasté, ce qui est tout de même 
plus agréable ! 

Vous avez dit «communiquer»? Soyez 
rassurés, il n’y a pas que ce cher 
KERMIT, HP a pensé au X-MODEM 
qui est plus rapide. Bien sûr, rien ne vous 
empêche de communiquer entre HP 48 S 
et HP 48 G via KERMIT. Passons à la 
HP 48 GX : il est vrai que 32 Ko de 
RAM sont assez vite remplis par les 
programmes d’aujourd'hui (par exem- 
ple, PACMANIA prend 90 Ko de mé- 
moire, et il faut un peu plus de 20 Ko 
de libres pour le faire tourner ! ! !).Et bien 
soyez heureux, on a maintenant 1 28Ko! 
Bravo HP, c’est assez bien joué. Mais 
les ports de nos cartes ? Préparez-vous 
à sauter, le port 1 reste un 1 28 Ko, mais 
le 2 peut recevoir jusqu’à ... 4 Mo ( oui, 
4 mégas!) directement accessibles. Le 
problème sera de les remplir, ces 4 Mo, 
car il est déjà assez dur de gonfler une 
carte 512 Ko. 

Notons malgré tout, quelques petites im- 
perfections: en effet, HP a voulu garder 
une compatibilité entre les HP 48 S (X) 
et G (X). Cela signifie qu’il faut, pour 
la G(X), rappeler des objets en ROM, 
les copier en RAM, puis les évaluer pour 
les utiliser. En d’autres termes, on perd 
du temps machine. Mais n’oublions pas 
que les nouvelles HP 48 GX sont ca- 
dencées à environ 4 Mhz, contre envi- 
ron 2 Mhz chez les 48 SX. De plus ce 
mode d’accès à la ROM (objets situés 
plus haut que les 256 premiers Ko di- 
rectement utilisables) reste valable pour 
le port 2. Un bon conseil : faites-en un 
port de sauvegarde ! 

Mis à part la ROM et les ports, il faut 
avouer que l’écran, qui est agréable au 
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regard, est assez lent au niveau vitesse 
d’affichage. La plupart des jeux déjà 
programmés doivent être ralentis pour 
pouvoir admirer les scrollings... 

Mais nous avons gardé le must pour la 
fin : les menus déroulants! Oui vous 
avez bien lu «menus déroulants»: c'est 
un superbe coup de maître de la part de 
HP, grâce à qui l’utilisation de la ma- 
chine est plus conviviale. Mais souve- 


nez-vous de la petite histoire des ob- 
jets à copier... Dommage que ces me- 
nus soient un peu lents. Par exemple, 
quand on tape vite sur le clavier, la HP 
n'a pas le temps de tout afficher. 

Alors, ne soyez pas déçus, soyez pa- 
tients et amusez-vous bien ! 

Bonne programmation, et à bientôt sur 
la HP48GX dans le prochain numéro. 

HP MANIAC 





BESOIN DE MEMOIRE SUR VOTRE HP48 (SX-GX)? 


, * , ’ . * càrtès ram MICROCARDS(fabricant) * 

- ! ; : CAfiDR AM 48HP128 (128K) * 495F (TTC) f ? 
» H GÀRDRAM 48HP256 (256 K) 830F (TTC) * ’ 
V> GARDRAM 48HP512 (51 2K) 1 350F (TTC) 

* ï * (garantiel an - frais de port’cbli6Simo 45F) ■ 

MICROGARDë - 42220 BURDIGNES Cedex - FRANCE 
* * * tel 77.39.68.13 fax 7.7.39.1 9.60 * 1 , ' 
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INITIATION A L'ASSEMBLEUR SUR HP 48 

(1ère partie) par Régis DUCHESNE 

\ous avez lu, dam te numéro 1 de Poche Computers, l'article de Stéphane DOUAT sur l'assembleur HP4S 

e ce augage vous intéressé. Malheureusement, vous n 'y comprenez pas grand chose. Cet article va vous 
permettre d’y voir un peu plus clair. 



1) Présentation 

Soyons lucides dès le départ: ce 
cours ne s’adresse qu'aux personnes qui 
ont déjà quelques notions de programma- 
tion en général, c’est-à-dire qui savent ce 
qu est la ROM, la RAM, une variable, un 
test, un sous-programme... Si ce n’est pas 
votre cas. il est vivement conseille de lire, 
avant cet article, un des nombreux ouvra- 
ges de vulgarisation traitant par exemple 
de la programmation en langage BASIC 
ou PASCAL. 

Tout d’abord un point de vocabu- 
laue, nous distinguerons ici le langage 
assembleur et l’assembleur lui-même, la 
nuance est délicate : le langage assem- 
bleur. c'est le langage dans lequel vous 
allez écrire vos programmes (le listing 
d'un programme s’appelle le source ), 
comme le BASIC ou le PASCAL, avec des 
] n su ne ti on s compréhensibles. L assem- 
bleur, c’est le programme qui va assembler 
v otrc source, c est-a-dire le transformer en 
un objet en langage machine, directement 
éxécu table par la machine (L objet obtenu 
s appelle d’ailleurs un exécutable ). 

Plusieurs fois dans cet article, il 
sera tait référence à «Voyage au centre de 
la HP48», excellent ouvrage de Paul 
GOURBIS et Sébastien LALANDE, aux 
éditions ANGKOR, considéré comme la 
bible du programmeur en langage assem- 
bleur, et ceci toutes versions de la machine 
confondues (HP48S, HP48SX, HP48G. et 
HP48GX). Cet ouvrage est in dispensab le 
et devra obligatoirement figurer dans la bi- 
bliothèque de tout programmeur en lan- 
gage assembleur qui se respecte. 

Dans la suite de cet article, les per- 
sonnes citées .se verront accompagnées 
d un mot entre parenthèses, ce mot corres- 
pond à un pseudonyme. En effet, il existe 
plusieurs serveurs minitels rassemblant la 
famille sans cesse proliférante des pro- 
grammeurs HP, et comme chacun sait, le 
minitel devant conserver l’anonymat, on a 
recours aux pseudonymes. Sur ces ser- 
veurs, on peut discuter en direct ou en dif- 
féré avec d’autres programmeurs, et l’on 
peut télécharger des programmes directe- 
ment sur la HP. Pour plus de détails, je 
nous conseille vivement d'aller ouvrir un 
boîte aux lettres électronique sur l’un de 
ces serveurs, par exemple sur le 3615 
RTEL ou même mieux sur TOP J EF, un 


serveur privé (la connection ne coûte que 

le prix de la communication téléphonique) 

au ( I ) 47 . 95. 28. 10. Mon pseudonyme est 
HPRcg. 

Pour écrire vos sources sur HP48. 
on utilise une chaîne de caractères. Vous 
vous apercevrez rapidement que l’éditeur 
integié de la machine est très vite dépassé. 
Pour pallier ce défaut, j’utilise personnel- 
lement le très complet STRING WRITER 
version 2. 1 de Jean-Yves AVENARD (de 
pseudonyme GHERKIN), qui a l'avantage 
d'être petit, rapide, et de permettre le cou- 
per-coller de blocs... Dans cet article, l’as- 
sembleur utilisé est A SM FLASH, de 
Phong N GU YEN (pseudonyme 
HPNINJA) dans sa version 6. 1 adapléepar 
Jean -Yves AVENARD (GHERKIN). 
C'est un assembleur sur HP48, donc toute 
l’opération se fait sur votre machine. Pour 
vous procurer ces programmes, allez sur 
TOP J EF, tout vous sera expliqué. 

Vous voilà quasiment prêt pour 
commencer, mais sachez que le dévelop- 
pe) nenl de programmes en langage assem- 
bleur demande beaucoup de mémoire, il 
est donc conseillé dès que vous passerez 
a de gros projets, de vous procurer une 
carte 128 Ko RAM (Je me suis laissé dire 
que la société MICROCARDS en propo- 
sait pour pas cher...) 

2) !' onction ne ment du microprocesseur 

(. c paragraphe apporte des notions 
nouvelles à certains qui le trouveront donc 
un peu fastidieux à lire. Ne vous découra- 
gez pas, relisez- le plusieurs fois s'il le faut, 
puis passez à l’exemple... 

Le microprocesseur de la HP48, le 
cerveau de la machine, à été baptisé 
SA1 URN par HR 11 s'agit d’un micropro- 
cesseur 4 bits, c est-à-dire que son voca- 
bulaire est limité à seize mots, que l'on 
pourrait numéroter de I à 16. mais que 
l'on préfère numéroter en hexadécimal 
(base seize), c’est-à-dire de 0 à F. en em- 
ployant les symboles A à F pour les 6 der- 
niers mots. L avantage de la numérotation 
par bit est qu’elle correspond exactement 
à ce qui se passe physiquement dans le mi- 
croprocesseur, on représente un bit par 
deux étals, le courant passe (état 1) ou il 
ne passe pas (état 0). Lorsque l’on utilise 
un groupe de 4 bits, on parle de quartet. 

La conversion binaire (base deux, c'est la 



base du bit=binary digit en anglais) en 
hexadécimal est très simple: 
soit à convertir 1 100 (binaire) en hexadé- 
cimal, on écrit le tableau suivant: 

2 A 3 2 A 2 2 A I 2 A () 

1 I 0 () 

puis on somme: 

I *2 A 3+ 1 *2 A 2+0*2 A 1 +0*2 A 0= 1*8+1 *4+ 
0*2+0* 1 = 12 (décimal = C (hexadécimal) 
Aux bits 1 100 correspond le quartet C. 
Fout faire la conversion inverse, on pro- 
cède dans l’autre sens : 

Soit à convertir A(hexadécimal ) en binaire, 

on décompose A en puissances de deux, 
A(hexa)- 1 0( décimal )=8+2= 1 *2 A 3+0*2 A 2 
+ 1 *2 A 1 +0*2*0 donc vaut 1010 en binaire. 
Au quartet A correspondent donc les bits 
i 0 1 0. 

Pour faire ces opérations sur plus de chif- 
fres, on décompose toujours les nombres 
binaires en tranches de 4 bits et les nom- 
bres hexadécimaux en tranches de I 
quartet, exemple : 

soit à convertir 0101111 1001 I I I 1 0(bi- 
naire) en hexadécimal, on décompose en 
tranches en partant de la droite, et on fait 
comme ci-dessus, 0101 il 1 1 001 1 1 1 !() ce 
qui donne 5 F 3 E. le résultat est donc 5F3E. 
Retenez bien ceci, on s en sert constam- 
ment, mais que cela ne vous effraie pas. 
cela vient rapidement avec un peu de pra- 
tique’. Pour vous habituer, nous ne parle- 
rons dorénavant plus qu’en hexadécimal... 

Le S Al l JRN peut aller lire ou écrire 
des données en mémoire. Il faut savoir que 
l'unité de mémoire est le quartet. et pour 
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savoir ou l’on doit lire ou écrire, il est né- 
cessaire de connaître l'adresse de ce quarte! 
(comment voulez-vous qu'une lettre vous 
arrive si le facteur ne connaît pas votre 
adresse?). Pour le SATURW, les adresses 
vont de 00000 à FFFFF. La seule chose à 
retenir est que le SATURN, lors d'une opé- 
ration de lecture ou d'écriture, «retourne» 
les quartets, mais nous aurons l’occasion 
d'y revenir... 

Le SATURN possède des registres , 
qui sont un peu comme des variables, dans 
lesquels on peut stocker quelques données 
et sur lesquels on peut pratiquer des opé- 
rations élémentaires. Voici les plus utiles 
de ces registres qui peuvent être classés en 
6 catégories : 

Registres d ' entrées/sorties : 

Très peu utilisés par le débutant, le 
registre OUT( 1 2 bits) permet d’envoyer du 
courant sur des fils du clavier ou du buzzer, 
et le registre IN( 1 6 bits) permet de rece- 
voir du courant sur des lils du clavier. Ces 
deux registres servent donc à la gestion du 

■W t_- 

clavier et du son. 

Registres drapeaux : 

LaCARRY( 1 bit) est le registre de 
retenue, après éxécution par le micropro- 
cesseur d’une instruction correspondant à 
une opération algébrique sur un registre, 
la CARRY est mise à l(on dit qu’elle est 
armée ) si l'opération à donné lieu a une 
retenue: somme supérieure à ce que peut 
contenir le registre, ou soustraction don- 
nant un résultat négatif. La CARRY est 
aussi armée lorsque une instruction de test 
est vraie. 

ST ( 1 6 bits) est le registre de statut, 
il s'agit de drapeaux que T utilisateur peut 
armer ou désarmer f mettre à 0). 

Registres pointeurs: 

D0 et D 1(20 bits chacun), contien- 
nent la plupart du temps une adresse mé- 
moire (on dit qu'ils pointent sur cette 
adresse). Ils sont utilisés pour les opéra- 
tions de lect ure/ écriture en mémoire 

PC (20 bits), c'est le program 
counter, il contient l'adresse de la pro- 
chaine instruction en langage machine à 
éx éditer. 


temps pour la sauvegarde des registres de 
calcul qu’il me faut donc présenter: 
Registres de calcul: 

A,B,C,D (64 bits chacun) , où A et 
C sont spécialements dédiées aux opéra- 
tions de lecture/écriture en mémoire. 

Le pointeur de champ: 

P(4 bits): en général, P= 0 
Pourquoi pointeur de champ? Parce 
que le SATURN définit des champs (des 
subdivisions) sur tous les registres de 64 
bits . Voici un tableau du nom et de la dis- 
position des champs (rappel:64 biis=16 
quartets): 


15 14 13 12 II 10 9 8 7 |6 5 

4 3 

2 

1 0 

W 



S M 

XS 

; u 


A 


X 


Comme P contient toujours une valeur de 
0 à F, il définit lui deux champs: le champ 
P qui est en fait disposé sur l'unique quartet 
de numéro P. et le champ WP qui est dis- 
posé sur les quartets 0 à P. Exemple si P=2, 
on a le cas particulier où le champ P est le 
champ XS eloii le champ WPestlechamp X. 

Exemple: J’entends d’ici ceux qui 
disent: «c’est bien beau tout ça. mais main- 
tenant, je fais quoi?». Revenons un peu 
dans le monde du concret, essayons 

4F 1 

d’écrire la valeur B A3 contenue dans le 
registre C champ X (que l'on notera doré- 
navant C X) à l'adresse mémoire 00125. 
voilà à quoi ressemblera le source: 

LC B A3 % charge les trois premiers 
quartets de C, donc C X, avec la valeur 


D()= 00125 % charge le registre DO avec 
l'adresse où Don veut écrire 
DATO-C X décrit C X à l’adresse poin- 
tée par D0 

En fait, en mémoire, puisque le SATURN 
«retourne» tout, on trouvera à l'adresse 
00125 le quartet 3, à l’adresse 00126 le 
quartet A, et enfin, en 00127 le quartet B. 
Facile non? 

A noter qu’en pratique, on a rarement à se 
souci er de ce «retournement», car si on es- 
saye de lire sur trois quartets (par exemple 
dans A X) la valeur contenue à l’adresse 
00125, on retrouvera bien A X-BA3). Le 
double «retournement» remet tout en ordre! 


P= 15% initialise P à la valeur décimale 15 
LC ABC %charge C avec ABC, toujours à 
partir du champ P 

On trouvera dans les 16 quartets de C : 

ru 


9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 

9 


Application : Vous êtes maintenant 
apte, avec un peu d'aide, à écrire votre pre- 
mier programme en langage assembleur: 
Il va s’agir d'effectuer un SWAPdes deux 
premiers niveau de la pile, comme le fe- 
rait la fonction du RPL(le langage décrit 
par HP dans les manuels vendus avec la 
machine), mais sans aucune vérification du 
nombre d’arguments présents sur la pile. 
Pour ce faire, il faut savoir que la machine 
utilise de manière interne cinq registres: 

D0: qui pointe sur le prochain ob- 
jet à éxécuter. 

DU qui pointe sur le premier étage 
de la pile où ne sont en fait stockées que 
les adresses des objets que l’on voit s'affi- 
cher sur la pile à l’écran, et non les objets 
eux-mêmes. 

B champ A(noté B A) 

D champ A(noté D A) qui contient 
la place mémoire restante divisée par 5 
Avant de rendre la main au système, il con- 
viendra donc de redonner a ces registres 
des valeurs adéquates si on les modifie. 
Passons au source: 

A— DAT 1 A %charge A A avec 5 quartets 
pointés par D 1 , comme D 1 pointe sur Lob- 
jet au niveau 1 de la pile, A A va contenir 
l'adresse de l’objet au niveau 1 de la pile. 
D I =D1 + 5 %D I pointe maintenant sur une 
adresse mémoire contenant Y adresse de 
l’objet au niveau 2 de la pile. 

C=DAT1 A % charge C A avec l'adresse 
de l’objet au niveau 2 de la pile. 

DAT 1 =A A Té écrit l’adresse de l’objet qui 
était au niveau 1 au nouveau niveau 2. 

D 1 -D 1 - 5 %D1 pointe à nouveau sur le 
niveau 1 de la pile. 

DAT 1 =C A %écrit l'adresse de l'objet qui 
était au niveau 2 au nouveau niveau 1 . 
Remarquons que nous n'avons modifié ni 
B A, ni D A, ni DO, ni DI (puisque il est 
revenu à sa valeur initiale). Mais il y a un 
hic: si on assemble ce programme, il ne 
marchera pas. Nous avons tout bonnement 
oublié de rendre la main au système! En 
fait, comment faut-il faire? Il suffit de se 


Registres de sauvegarde: 

RSTK(8*20 bits) est un registre un 
peu spécial car c'est en fait une mini pile 
de huit étages de 20 bits, utilisée notam- 
ment pour la sauvegarde des adresses de 
retour lors d'appels à des sous-routines, 
mais nous aurons l’occasion d'y revenir... 

R0, R I ,R2,R3,R4(64 bits chacun) 
sont des registres utilisés la plupart du 


En fait, P agit aussi sur le charge- 
ment des constantes dans les registres A et C: 
Dans l’exemple précédent, P valait 0, mais 
lorsque l’on écrit l’instruction LC BA3, le 
champ numéro P de C prends la valeur B, 
le champ de numéro P+I la valeur A, et le 
champ de numéro P+2 la valeur 3. Et ceci 
de manière cyclique: 

Exemple : Soit le source suivant: 


brancher sur l'objet suivant à éxécuter. 
Tout programme en langage assembleur 
doit donc se terminer par ies instructions 
suivantes : 

A=DAT0 A %charge A avec l’adresse de 
la prochaine instruction à éxécuter. 

m 

D0=D0+ 5 % 1 a prochaine instruction à 
éxécuter devient la suivante. 

PC=(A) % 1 1 est impossible, sans me lan- 
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initiation a l àssembleur sur 


cer dans beaucoup plus d'explications, de 
vous dire, chers débutants, pourquoi. 

3) Utilisation de ASMFLASH 
Le menu de la librairie 1 21 7(ASMFLASH 
version 6. 1 ) possède quatre cases que nous 
allons voir en détail: 

- ABOUT: Sert d’aide mémoire sur le pro- 
gramme, un peu compliqué pour une ini- 
tiation, retenez simplement que le symbole 
% (obtenu par pression sur Alpha. Right 
Shitt, et Fan) sert de séparateur pour dire à 
l’assembleur que ce qui suit sur la ligne de 
votre source est un commentaire, que le 
symbole * sert de déclarateur de label, et 
que le symbole $ sert à forcer F assembleur 
à mettre une suite de quartets que vous 
voulez a la place où vous voulez dans 
féxécutable. Enfin, retenez que le symbole 
@ (obtenu par pression sur Alpha, Right 
Shift, Enter) sert à dire à l’assembleur où 
se situe la fin de votre source.) 

- OPT: propose un menu d’ options de com- 
pilation, que l’on change en appuyant des- 
sus, les programmeurs sont maintenant 
tous d‘ accord pour toujours choisir CODE. 
0-15, PC, JM P, OLE. Pour sortir et valider 
votre choix, appuyez sue EX1T. 

- ED: sert lors de l’opération d’assemblage, 
lorsque I assembleur a détecté une erreur, 
il vous suffit alors de tapez ED pour pou- 
voir directement corriger la ligne où est 
survenue l'erreur. 

- ASM: lance l’opération d’assemblage 
d’un source mis au niveau l de la pile. 

Votre source doit finalement se pré- 
senter exactement comme ceci. 
ASMFLASH étant comme tout les assem- 
bleurs très pointilleux sur la syntaxe, al- 
tenlion donc à ne pas omettre ou ajouter 
des espaces ou un saut de ligne(pai- exem- 
ple, on ne met plus rien après le @ final.) 
«%S WAP sans vérification d’arguments 
A-DAT I A 
D 1 =D 1 + 5 
C-DAT ! A 
DAT i -A A 
D1=D I - 5 
DAT 1 =C 

% Retour au système 
A-DATO A 
D()=D0+ 5 
PC=( A ) 

@» 

Voilà, vous avez donc fini de ren- 
trer ce source, stockez- le sous le nom 
SWAP.SRC’, et mettez 1 e au niveau 1 de 
la pile avant de tapez ASM pour l’assem- 
bler. Si aucune erreur ne s'est produite, 
stockez Féxécutable dans ‘S WAP. EXE", 


sinon vérifiez la syntaxe de votre source, 
la place mémoire disponible, ainsi que le 
choix de vos options de compilation. 
Maintenant placez 2 objets quelconques 
sur la pile, exécutez SWAP.EXE et, mira- 
cle du langage assembleur, les deux objets 
ont changé de niveau!!! 

Remarque pratique: 11 vous arri- 
vera immanquablement un jour, au hasard 
de votre programmation en langage assem- 
bleur, d assembler un source qui bien que 
syntaxiquement correct, comporte des er- 
reurs de programmation(on appelle ça un 
bng). Il se peut aussi que vous oubliez de 
mettre sur la pile les arguments dont se sert 
votre programme (ici deux objets quelcon- 
ques). Si vous exécutez votre programme, 
il en résultera quelquechose d imprévisi- 
ble: Essayez immédiatement de faire un 
arrêt système (en pressant ON et C simul- 
tanément). Si cela ne marche pas, et que 
votre programme semble bloquer la ma- 
chine. retournez la machine et enlevez lui 
(avec 1 ongle) ses deux patins anti-déra- 
page les plus éloignés du logement à pile. 
L'un deux découvrira un petit trou marqué 
d un petit R( comme RESET), Alors, enfi- 
lez un trombone dans ce trou jusqu’à sen- 
tir une résistance élastique, puis une forte 
résistance solide. Relâchez, appuyez sur 
ON. Après un double arrêt système, votre 
machine devrait fonctionner à nouveau. 
Moralité: le niveau d’un programmeur en 
langage assembleur est inversement pro- 
portionnel au nombre de trombones qu’il 

possède dans la housse de protection de sa 
HP!!! 

Remarque importante: Rappelez- 
vous simplement que sauf cas très parti- 
culier, il es ! impossible de casser physi- 
q uement sa machine à l ' aide d’u n sim ple 
pro gram me. Le Soft ne détruit jamais le 
Hard. Je ne connais qu’une seule excep- 
tion à cette règle: (N’essayez pas!!!) En 
écrivant le quartet 2 à l’adresse 00102. à 
I aide du source suivant par exemple: 
«%Seul programme dangereux 

LC 2 % Affectation du quartet 2 dans C 
champ Pi P= 0 par défaut...) 

ADOEX ^ Sauvegarde de DO, qui ne doit 
pas être modifié 

[> 0 = 00102 % Affectation de l’adresse où 
écrire dans D0 

DAT0-C P % Ecriture à l’adresse pointée 

par D0 de C P, soit un quartet...D0=A 

% Récupérât ion de la valeur initiale de D0 

% Retour au système 

A-DATO A 

D0=D0+ 5 

PC=(A) 

@» 


Cette adresse bloque le balayage 
écran sur la ligne actuellement balayée, ce 
qui implique une surtension sur cette li- 
gne, surtout si l’écran est très contrasté. 
Moralité: à part ceci, vous pouvez vous 
permettre tous les délires avec votre ma- 
chine. Néammoins, HP et moi-même dé- 
clinons toute responsabilité pour ce qu’il 
pourrait advenir de votre machine ou de 
de votre santé, en lisant cet article!!! 

4) Le jeu d’instructions du SA IT RN 
Vous allez me dire: «Oui, mais la program- 
mation, ea ne consiste pas qu’à écrire des 


valeurs dans des registres ou en mémoire 


» 



C'est faux. En langage assembleur, on ne 
tait que ça, et vous allez voir que ces ins- 
tructions élémentaires (je les ai à peu près 
toutes mises, il en manque certaines inuti- 
les aux débutants), exécutées en une in- 
fime fraction de seconde, vont vous per- 
mettre d élaborer des programmes très 
complexes. Ce paragraphe n’est pas très 
intéressant du point de vue de la program- 
mation en elle-même, il ne fait qu énumé- 
rer les instructions que vous devez abso- 
lument connaître pour programmer (Ne 
vous en faîtes pas, ça vient en les utilisant). 
Le paragraphe suivant explique comment 
utiliser ces instructions. 

Dans toute la suite du paragraphe 
III, ou désignera par la lettre «f» un champ 
quelconque d'un registre, parmi P, WP, S 
XS, B, X, A. M, W. On désignera de même 
par la lettre «x» un nombre compris entre 
0 et 15 inclus. 

4.1) Instructions d’affectation 
a) chargement de constantes 

LA qqqqqqqqqqqqqqqq %Charge le regis- 
tre A avec un nombre de quartets inférieur 
ou égal à 16: par exemple, LA 1 BC charge 
le champ X de A avec la valeur 1 BC. 

AB1 f — 0 x %Mise à zéro du bit numéro x 
du registre A. les bits sonts numérotés de 
droites à gauche. 

ABIT - 1 x %Mise à un du bit numéro x du 
registre A 

Remarque: Ces trois instructions aussi en 
remplaçant A par C. 

A-0 f %Mise à zéro du champ l' du regis- 
tre A 

Remarque: Ces trois instructions existent 
aussi en remplaçant A par B.C ou D. 

P= x % Affecte la valeur x à P. 

D0- qqqqq %Charge le registre D0 avec 
un nombre de quartets donné: 2, 4 ou 5: 
par exemple, D0= 12345 suivi de D0= AB 
attribue à D0 la valeur 123 AB 

Remarque: Cette instruction existe aussi 
en remplaçant D0 par D 1 . 

ST-0 x C Arme le drapeau numéro x. Il 
est conseillé de ne pas utilisr les drapeaux 
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10, 13, 14, 15 qui sont utilisés de manière 
interne par la machine. 

ST- 1 x % Désarme le drapeau numéro x. 
CLRST % Désarme tous les drapeaux. 

b) Chargements de valeurs 
A=B f % Attribue au champ f de A la va- 
leur du champ f de B 

A=C f %ldem mais avec la valeur du 
champ f de C 

B — A I' %Atlribue au champ ! de B la va- 
leur du champ f de A 
B=C f %Idem mais avec la valeur du 
champ f de C 

C=A f % Attribue au champ 1 de C.' la va- 
leur du champ f de A 

C=B f %Idem mais avec la valeur du 


DAT0=Ax+l %Ecrit x+1 quartets en mé- 
moire à T adresse pointée par DO. 

K : Ces trois dernières instructions existent 
aussi en remplaçant A par C et DO par D 1 . 

e) Echange de contenus de registres 
ABEX f %Echange les champs f de A et de B 
ACEX f 'a Idem pour A et C 
BCEX f %klem pour B et C 
CE)EX f %Idem pour C et D 
ADOEX %Echange le contenu de A champ 
A et DO 

ADOXS % Echange les quartets 0 à 3 de A 
et DO 

R : Ces deux dernières instructions exis- 
tent aussi en remplaçant A par C et DO par D ! . 
AROEX f %'Bchange les champs f de A et 
de RO. 

R: Cette instruction existe aussi en rem- 


C+P+l % Ajoute la valeur de P plus 1 à C 
champ A 

c) Opération logique AND 

C'est une opération prenant deux bits 
comme argument et renvoyant un bit 
comme résultat: 0 AND 0=0, 0 AND 1=0, 

1 AND 0=0, 1 AND 1 = 1. 

Les instructions s’écrivent pareil que pour 
les addilions(pas les soustractions!) en 
remplaçant le symbole + par le symbole 
&. Par exemple, 

C=C&A f C I ait un AND logique bit à bit 
entre les champs f de C et A, et place le 
résultat dans le champ f de C. 

d) Opération logique OR 

C'est une opération prenant deux bits 
comme argument et renvoyant un bit 
comme résultat: 0 OR 0=0. 0 OR 1 = 1. 1 


champ f de B 

C=D f % 1 d e m mais avec la valeur du 
champ f de D 

D=C f %Attribue au champ !' de D la va- 
leur du champ f de C 

C=ST %Charge les drapeau de numéro 0 à 

1 1 dans les 12 bits de C champ X 

C=P x % Charge la valeur de P dans le 

quartet numéro x de C 

P=C x %Charge P avec la v aleur du quartet 

numéro x de C 


plaçant R0 par R i , R2, R3, R4 et A par B, 
C, D. 

CPLX x %Echange la valeur du quartet 
numéro x de C avec la valeur de P 
CSTEX % Echange les 12 drapeaux avec 
les 12 premiers bits tic C champ X 

4.2) Opérations mathématiques 
a) Incrémentations 

A=A+x+ 1 f %lncrémenle le champ l' de A 
de x+1 unités 

A=A-x-l f %Idem mais décrémente. Par 


OR 0=1, 1 OR 1 = 1. 

Les instructions s'écrivent pareil que pour 
l'opération logique AND, en remplaçant 
le symbole & par le symbole !. Par exemple, 
C=C!A f %Fait un OR logique bit à bit 
entre les champs f de C et A, et place le 
résultat dans le champ l' de C. 

e) Opération logique NO T 
C'est une opération prenant un bit comme 
argument et renvoyant un bit comme ré- 
sultat: NOT 0=1, NOT 1=0. 


D0=A %Charge A A dans D0 
D0=AS %Chargc les quartets de numéro 
0 à 3 de A dans ceux de D0 


Remarque: Ces deux dernières instructions 
existent aussi en remplaçant D0 par DI 
A=ÏN % Ecrit les 4 quartets du registre IN 
dans les quartets 0 à 3 de A 
C=1N %Idem avec le registre C 
OUT=C %Charge le registre OUT avec les 


trois quartets de C champ X 
OLJT=CS %Charge le quartet 0 du regis- 
tre OU F avec le quartet 0 de C'. 

c) Sauvegardes et récupérations 
A=R() f %C’harge le contenu de R0 champ 
f dans celui de A champ f 
R0=A f %Idem dans l'autre sens. 


Remarque: Ces deux dernières instructions 
existent aussi en remplaçant R0 par RI, 
R2. R3, R4 et A par B, C, D. 

C=RSTK %Sauve la valeur de C champ A 
sur le premier étage de la pile des retours, 
P ancien niveau 8 de cette pile est perdu. 
RSTK=C % Dépi le le premier étage de la 
pile des retours et stocke sa valeur dans C 
champ A. le niveau 8 de cette pile est mis 
à 00000. 


exemple, A=A- 1 0 S décrémente de 1 0 le 
champ S du registre A 
Remarque: Ces deux dernières instructions 
existe aussi en remplaçant A par B. C. D. 
P=P+ 1 % Augmente P d’une unité 
P=P-1 %Diminue P d'une unité 
D0=D0+ x+1 % Augmente- D0 d'une unité 
D()=D0- x-1 %Diminue DO d'une unité 
Remarque: Ces deux dernières instructions 
existent aussi en remplaçant D0 par Dl. 
b) Additions 

A=A+B f %Somme les champs f de A et 
B, le résultat est mi dans le champ f de A 
A=A+C f %Idem pour A et C 
B=B+A 1’ %ldern pour B et A 
B=B+C f %ident pour B et C 
C'=C+A f %ldem pour C et A 
C=C+ B f %ldcm pour C et B 
C'=C+D f %Idem pour C et D 
D=D+C f %ldem pour D et C 
A=A-C I %Souslrait au champ 1' de A le 
champ f de C et place le résultat dans celui 
de A 

A=B-A f %ldem 
B=B-A f %ldem 
B=B-C f %ldem 


d) Transferts avec la mémoire 

A=DAT0 f %Charge A champ i' avec les 
quartes lus en mémoire à l'adresse poin- 




DAT0=A f %Eerit en mémoire à l'adresse 


B=C-B f %Idem 
C=C-A f %Idem 
C=A-C f %ldem 
C=C D f %Idcm 
D=D-C f %Idem 


pointée par D0 les quartets du champ t’deA. 


D=C-D f %ldem 


A=-A- 1 f % Effectue un NO f logique bit à 


bit sur le champ f de A 
A=-A f %Calcule l’opposé de A champ f 
en base 2. c’est-à-dire le nombre qui ajouté 
à A champ f, donnerait zéro sur le champ f. 


Remarque: Ces deux dernières instructions 
existent aussi en remplaçant A par B, C, D 

f) Multiplications 


A=A+A f %Multiplie A par 2 sur le champ f. 
ASL f % Multiplie A par 16 sur le champ f. 


ASRB f %Divise A par 2 sur le champ f. 
ASR f %Divise A par 16 sur le champ f. 


A S LC % Rotation circulaire vers la gau- 


che des quartets de A sur l'ensemble du 
registre: le quartet numéro 0 devient le 
quartet de numéro l, le quartet de numéro 
! celui de numéro 2. ... et le quartet de nu- 
méro 15 celui de numéro 0. 
ASRC %Rotation circulaire vers la droite 


des quartets de A sur l’ensemble du regis- 
tre: le quartet numéro 0 devient le quartet 
de numéro 15, le quartet de numéro 1 ce- 
lui de numéro 0, ... et le quartet de numéro 
14 celui de numéro 15. 


Remarque: Ces six dernières instructions 


existent aussi en remplaçant A par B, C, D 


Fin de la 1ère partie. Dans le prochain nu- 
méro, nous étudierons les instructions de 
branchement e't nous vous proposerons 
quelques exemples commentés ainsi que 
quelques "ruses" à employer. 
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AVEZ-VOUS BESOIN DE MEMOIRE 

POUR VOTRE HP48 (SX-GX) ? 


. ocietc d électronique, spécialisée en micro électronique depuis plus 
"T nous ^briquons des cartes mémoire pour HP48 depuis 
UD , 0 „i USqua 512KB - Celles-ci sont compatibles HP48SX et 
, H S; surpni t 1 011 2 in<l i f fr | -pm ment. En effet, pour les car- 

£S uiür paS de probleme Particulier. Par contre, seul le port 2 
sur Ht 480 X est prévu pour accepter jusqu'à 4MB (normes Hewlett 
Packard). 

Avec nos cartes, le passage de banque est manuel, par interrupteur ; 

ce qui permet une utilisation aussi bien sur HP48SX ou HP48GX 

sur port 1 ou port 2. La taille des banques est de 128KB chacune 
La compatibilité HP est de 1 00%. 

De plus, les données sont conservées par micro-accumulateur (et 
non par pile), rechargeable depuis la HP, avec une sur-consomma- 
tion négligeable et une durée de vie de 1 0 ans. Un micro interrup- 
teur permet l'accès ou le blocage d'écriture. 

MICROCARDS produit scs cartes en toute sécurité pour l'uti- 
lisateur (fiabilité égale à celle de chez HP !) et s'engage pour une 
garantie d une année par échange standard. 


CARDRAM 48HP512 

(4 X 128K) 
pour HP48 SX-GX 
made in France by 

MICROCARDS 

42220 - BURDIGNES cedex 


ftft f» * «P X * * * S i ï t||i 


3 bonnes raisons 

d'acheter MICROCARDS 

1) la compétence électronique 

2) les 2 nouveautés mondiales: 
‘sauvegarde par accumulateur et 

‘switching par interrupteur manuel 

3) des prix à couper le souffle ! 
directement du producteur 

au consommateur 

LES PRI X ? 

référence CARDRAM 48HP128 (128KB) 495,00F TTC 

référence CARDRAM 48HP256 (256KB) 830,00F TTC 

référence CARDRAM 48HP512 (512KB) 1350,00F TTC 


I plus 45F de port 

| colissimo recommandé 


JVi IL KOLA R DS 42220 BURDIGNES cedex - FRANCE • 
tél (33) 77.39.68.13 fax (33) 77 39 19 60 

vente par corresponde esetnsiven.en, ( ouverture du lundi au ven^Unl : de » à , 3h e, de ,5H à ,9 h ) 






Ce jeu de moins de 1,5 Ko se joue seul . Il est inspiré du célèbre TE TRIS russe . Pour jouer, on retourne le 
clavier de gauche sous la machine et on tourne celle-ci d'un quart de tour dans le sens inverse des aiguilles 
d'une montre. Pour diriger la pièce qui tombe , on utilise INS pour aller à gauche et SHIFT (la touche rouge) 
pour aller à droite. Pour faire tourner la pièce sur elle même, on utilise STO. Pour accélérer la chute de la 
pièce, on utilise '. L'activation ou la désactivation des effets sonores dépend duflag 51, comme en utilisation 
normale de la machine. Après avoir sélectionné le programme TRGST, c'est parti U! 


Le but du jeu est de placer les pièces qui tombent du creux d’une co- 
lonne, afin de constituer des lignes qui font toute la largeur de 
l’écran, sans trou. Toute ligne constituée disparaît, faisant redes- 
cendre le las de pièces posées précédemment d'un cran. Bien 
sûr. le tas de pièces ne doit pas atteindre le haut de la colonne. La 
prochaine pièce à tomber est indiquée en haut à gauche de l'écran. 
Cette pièce étant une pièce à part entière, attention de ne pas 
"coincer" votre pièce en la serrant trop à gauche dès le départ. Le 
niveau et le nombre de lignes restant à compléter sont affichés en 
permanence. Qui arrivera, au mépris d’une vitesse de jeu crois- 
sante ainsi que d'obstacles apparaissant dans l'écran (à partir du 
niveau 3), à finir le niveau 10...? 

Pour ne pas faire d’erreurs fatales (risque de Memory Lost) en 
entrant ce programme bien suivre les étapes successives. Si vous 
avez déjà rentré les programmes ASSR et CHKR lors de la saisie 
d’un autre jeu, passez à l'étape V. 


I — CREATION DU PROGRAMME ASSL: 

Rentrez ce programme SANS ERREUR: 

« -> C « HEX "" 1 C SIZE EOR X "#" C X 1 + DUP SUB C 
X X SUB + + STR -> B -> R CH R + 2 STEP 2 #8 25 3 h SYSEVAL 
#4F3Dh SYSEVAL » » 

Stockez- le dans ASSL. 

II CREATION DU PROGRAMME CH KL 
Rentrez ce programme SANS ERREUR: 

« -> C « HEX 64 STWS #0h 1 C SIZE FOR X "#" C X DUP 
SUB -I- STR -> X * + NEXT » » 

Stockez-le dans CH KL 


III — CREATION DU PROGRAMME ASSR 
Rentrez la chaîne suivante sans espace ni saut de ligne: 

76C20 0C8E 1 l E3C0 69C20 F6000 8F ! 80 50 1 47 068F7 2F40A 
F2306 EE474 8 1 E06 E68F9 38200 7D507 1 3606 1 35 1 6 914A3 
103EA 31909 FA 703 07EA1 59016 1170C D5CD8 DDEDD 


1 09 F2 0 

Dupliquez !a chaîne et vérificz-la avec CH KL. Si le résultat est 
dilî crent de #E016h, elle a été mal rentrée, recommencez cette 
étape. Sinon éxécutez ASSL et stockez le résultat (les 3 System 
Object) dans ASSR. Ensuite , purgez ASSL. 


IV — CREATION DU PROGRAMME CHKR 
Rentrez la chaîne suivante sans espace ni saut de ligne: 

76C20 07971 CD570 EEE80 01670 69C20 4B000 8F 1 80 50143 
13117 4AF0A F3101 10214 3 174D 2305E ABIC I 0QI4B3103B 
6A3 19 09A8 0307B 6AAE6 AE7 il 1 E4 1 0 I AF 1 3 1 F3A75A775 


50A78 A6E50 F 1 1 2 A 70 1 02 1 7 1 1 1 11188 A6B A8 F8B05 0 1 47 E 


71431 33 179 l 1 A 1 5 57 131 14216 4808C 09F20 

Dupliquez la chaîne et vériiîez4a avec CHKL. Si le résultat est diffé- 


rent de #lD0FBh, elle a été mal rentrée, recommencez cette étape. 
Sinon éxécutez ASSR et stockez le résultat (le #()h DUP + SWAP 
System Object) dans CHKR. Ensuite, purgez CHKL. 


V — CREATION DU PROGRAMME TRGST 
Rentrez la chaîne suivante sans espace ni saut de ligne. Après cha- 
que saisie de chaîne, il faut dupliquer la dernière chaîne saisie et 
la vérifier avec CHKR. Si le résultat n'est pas celui indiqué, il faut 
retaper la chaîne. A la fin, vous devriez normalement vous retrou- 
ver avec 12 chaînes dans la pile. 


76C204B21 1 9C211 D78E0 73D20 10C47 3D201 0E40D9E04B 
2 1 1 DD 0A0E4A2033 000A2A2A2A 2A2A2 A2024 52594 74355 
44502 A2A2A 2A2A2 A2A2A 5832E 4A203 90004 45534 84543 
5E454 02020 20202 02022 38F2 0383F 29313 A0255 47494 
35024 53413 02020 20202 02020 20202 63239 393 A0 C4953 
45454 02D49 4C494 45149 42554 02023 547D2 34952 5ED21 
16A5A 08031 1A37A04B2! 14B21 1 535E 04467 0E57A 0E4A2 
01200 00202 0202F 49465 54145 50202 02027 3D201 0E4EA 
970EE E803A BB 1 9C 2 1 1 A3 7A073 D2010 F43F2 1 1 670 90CF9 
E073D 20! 0C 47 1 AE 0022 A 069C2 0C400 08F 1 8 050 AF 2 BEE 1 
B048F Fl 5C7 37 1 00 00008 A FA 3 1 B3 M 

CHKDR: #88B89h 

n 

16715 87A6E 55F8F 8B050 14216 4808C 3COAO 2331 1 67090 

79CB0 CD570 2E3E0 76C20 73D20 10E4E D2 1 1 A 

4B800 9F208 F3E07 6C209 C21 17 3D201 0E4ED 21 167 

090 B 6 5E03C OAODl 31167 09079 CB03C 0 A0 17 31 167 

09079 CB069 C20B3 0008F 18050 75F4D 51747 CE4DA 7D567 

8B68F 8 B 050 179E7 E7142 16480 8CF06 E009F 20974 E0535 

F0A26 7073 D 201 0C 4" 

CHKR: #32C35h 
« ^ 

EA970 69C20 61000 3444C FF842 8D04A B51C3 1 12E3 
E076C 2073D 2010F 4223! 1 A4 B 8 009F2 08F3E Q76C2 
03F21 I0DF8 073D2 010E4 ED2I I 44190 09F20 954E0 
73D20 1 0E49 74E00 DF800 FEF2E EE806 9C208 56008 
F 1 805 07EF3 1 0B 1 7 474F3 1 0A 1 B 5300C 30F 1 5 C01 1 A 
1 0C I B 8FFFF AF014 2 AF 1 3 07A85 AF32F 32800 209C9 
B0E6A 7565F FA779 F4” 

CHKR: #33 89 D h 

rr 

80B70 B778 1 DA6F5 BE102 85084 1 1 1 4D 2E6 1 0 93 1511 0879 
83 1 1 2 85 1 7F 73 1 1 1 D2304 CAI 0 1 11 484 07863 862C I 
D2CEÎ 0C31C 31B5D 00078 45600 31148 507F3 33208 0781 5 
93 AA5 85084 1 1 1 47 423 1 1 I CC 1 0 1 840 1 1 472 1 3 1 1 1E 4 10 1 8 
50" 

CHKR: #106ABh 



JEUX DE TRETIS SUR HP 28 S ... JEUX DE TRETIS SUR HP 28 


JEUX DE TRETIS 


851 1 1 47DF2 87212 85084 1 1 147 BE2I1 IC'CIO 1851 1 
I479D 23204 072B4 93AA5 85084 11147 EB21 1 1E410 18401 
147CA 21 1 IC Cl 01 8 50851 1 1477 92872 12850 84111 

47582 1 1 IE4 10185 1 1 147 37232 8007C 4493E 60668 08508 
41114 7452” 

CHKR; #10EBEh 

M 

1 1C80 F 1 OC 8 84402 080F 1 10C84 01 147 3321 1 C80F1 0D540 
2380F 1 10C8 50851 11471 12872 03850 84111 47FFI I IC80 
F10C8 84402 080F1 10C85 1 1 147 ED184 33201 074B3 

93 A 90 8536F’ 00340 OAOOC E5DF8 F8B05 01431 31179 
87311 147CE" 

CHKR: #1428Ch 

t r 

49014 56A5E 1 1 B 14 58508 41 1 14 7381 1 10CC1 00840 1 147 J 
71110 E4100 85085 11147 C5187 2D385 0841 I 147 A4 1 1 10C 
C 1001 1 485 1 78313 1 10 1 B 04000 74238 73606 4ED6 1 4F3 1 0 

1 1 BOA 00078 033 1 B 3AE7D 2 1 OC 1 F848F FAF2B FE 1 5 B 
72791 2A1 17 Fl 77" 

CHKR: # 1 70CCH 

M 

20A6F A6FA6 F5DD6 88020 3 1 209 EF83 1 33 131 1 00 13 01 6F I 
67DB1 09D5A 6DA6D A6D15 A7 1 59 7 1 67 1 77A6D 5EE37 10000 
008 A F A3 120 15971 77A6E 55F31 01 1B0 20007 E521 1 
9D7 1 1 81351 1 CE6 1 0C6C6 F8F8B 050 17 41431 33 1 79 
Il A 14 5131 1 C4143 133" 

CHKR: #15AEAh 

T 1 

17911 Cl 451 31142 16480 8043 1331791471 3101707011 
1 1 OFO 01111 0F001 31007 20232 00270 13200 63013 20063 
02310 03602 31003 60033 00330 03300 3301 1 30071 03220 
04703 1 1 007 40223 00 1 70 07 1 34 A0C49 016F6 6FFBE 4A0C4 
90163 66FF3 03A87 ! I9CE 10987 05084 2303 B E3A87 I5E08 
2281E BB3A8 78329 5! 101 I9D58 7073D 2309" 

CHKR: #24D9Dh 

it 

8BD90 8526C 303 1 5 1 8BA9 08526 C207A 60789 09765 08526 
8 1 076 5087 1 A07C8 06700 74A0A 8BBB7 1 1 OCC I OOAO F568B 
E7 1 1 0 D2304 CA 1 00 A0F4 1 1 1 1 1 E 4 1 0 1 ! 60655 F 1 1 1 C 

CCC10 101 BF 08 1 CD 6C4CA 34048 FFCA1 31AF0 30EA8 A" 
CHKR: #151 06h 

'r 

CD4C0 BF081 C64FF 01177 15F70 E7201 302 A 8 5 B FC 1 
7715F 70E72 15D7A 05DE 01302 A8517 715F7 0E7A1 
5D7AO D5DE0 1 DA32 200AB 7D68F 1 DA 1 0 0EF70 1 D7 1 F 

B 1 1 OC 1 5 B03 040EF 690C0 0 1 323 2008 1 3080 1 1 805C F370Û 
480 1 C F96F2 EO 1 2E 3E076 C20" 

CHKR: #18679h 

M 

CD570 07A20 AOOOO FFFFF 35A80 09F20 8F3E0 76C20 73D20 
10C48 7670B BCBOO DF80C F9E07 3D20I 0C47 1 AE002 
2A(XX^ F2097 4E055 5E0CD 57007 A20A0 OOOFF FFF5D 
98073 D2010C44B2 1 IEB B 80F68 80D4A E073D 20I0E 
49C2 1 1 EEE8 0CF9E 073D2 010E4 7 1 AEO 022AO 555E0 
CD570 07A20 AfXXX) FFFFF 5D980 73D20 10E4D 1 3 112 
331 1E EE805 D980F 6880D 4AE02 E3E07 6C200 7 A 20 A 


OOOOF FFFF3 5A800 9F208 F3E07 6C20E 4A20F 00002 425 1 4 

65F4D 7BB10 9F209 74E0A2670E D21 1 A 37A05 B9E00 9F20" 
CHKR: #69720h 


Acciocnei les I_ chaînes les unes aux autres en appuyant 1 ! lois 
sur la touche +. puis dupliquez la haine totale, vérifiez-la avec 
CHKR, si le résultat est #1 59A4BAK, tout est o.k. et vous passez 
à la suite, sinon, recommencez l'étape V !!! 11 ne vous reste plus 
maintenant qu a exécuter ASSR et stocker le résultat (qui com- 
mence par 0 1 -> L N « 0 RDZ...) dans TRGST. 
REMARQUES: 

- Le programme TRGST peut être utilisé comme tout programme 
ordinaire, mais si vous utilisez la commande ViSIT dessus, il 
taudia Ici minci voue session par ON, au risque de le détruire. 

- Il est bon de ne pas purger ASSR et CHKR car vous n’auæz pas à 
refaire les étapes I à IV en rentrant tin autre jeu. 


SUR QUELLE MACHINE 

PROGRAMMEZ-VOUS ? 


Depuis plus de dix ans, notre association est 
reconnue dans le monde entier comme étant 
le club de référence chez les programmeurs et 
utilisateurs de calculateurs de poche Hewlett- 
Packard. 

En plus des échanges d'informations et de pro- 
grammes entre nos adhérents, nos activités 
comprennent l’édition d'une revue paraissant 10 
fois par an, des réunions mensuelles, des con- 
tacts avec les clubs étrangers et bien d'autres 
choses encore... 

Si vous êtes intéressé, n'hésitez pas à nous 
rejoindre ! 

PPC PARIS 

B.P. 604 - 75028 PARIS CEDEX 01 






Résolution numérique d'équations 
différentielles sur calculatrice HP42S 

par Eric QUAGLIOZZI 


La calculatrice HP42S , bien que possédant de nombreuses possibilités de calcul (notament résolution d* équa- 
tion non différentielles pour une variable quelconque et intégration numérique pour le calcul d T intégrales 
définies) est dépourvue de certains outils utiles aux scientifiques et mathématiciens tels que la dérivation 
numérique et la résolution numérique d’équations différentielles. 


P ourquoi résoudre numériquement une 
équation différentielle? 

1) Pour un certain nombre de types d'équations différentiel- 
les du premier ordre { Y' = f (t, Y) | et du second ordre \ Y" = 
f (l,Y.Y‘); il existe des méthodes permettant de ramener le 
calcul des solutions à celui de primitives, parfois difficiles à 
calculer. 

Mais au delà de l'ordre 2 | Y P = f (t,Y,Y' v ..,,Y p ' !) } la recherche 
d’une solution analytique devient très difficile, voire impos- 
sible. 


2) En science, dans de nombreuses disciplines (mécanique, 
chimie, thermodynamique, électronique...) la loi d’évolution 
d'un système considéré en fonction d'une variable (par exem- 
ple le temps t) est souvent décrite par une équation différen- 
tielle. Donc pour connaître l'état de ce système pour une va- 
leur particulière de la variable, il est nécessaire de résoudre 
l'équation différentielle (d'une façon ou d'une autre). Or il 
est très séduisant de pouvoir connaître l'état d'un système en 
s'affranchissant de la recherche analytique de son équation 
(en fonction des variables d’état). 

Prenons comme exemple le circuit électrique suivant: 



La loi d’évolution du système, en fonction du temps, est la 

suivante: t v'(t ) + v,(t ) = v c (t ) avec t = RC 

C’est une équation différentielle du premier ordre que l’on 

peut encore écrire: YO ) = f (t, v s (t )) 

On voit immédiatement que la recherche de la solution v s (t ) 

est "conditionnée" par l'expression du second membre v c (t ). 
Il faudra calculer une primitive différente chaque fois que 
v (t ) aura une expression différente, ce calcul peut de plus 
devenir un peu "lourd". 


Ainsi, si l'on veut connaître la valeur de v\(7)à t= Is 
connaisant les conditions initales \\ ( t-t ) à t () pour 

v (/ )-U (une constante) puis v c (l ) = A sin(w l )puis ... il 

faudra choisir un bon crayon et se réserver une nuit tran- 
quille. 

Bien entendu on peut avoir recourt à des "outils" tel que la 
Transformée de Laplace mais en sachant que cette applica- 
tion "n’opère" que sur une classe de fonctions telle que l'inté- 

/ -f- 0=3 

e p ‘ . f ( i ).dt converge. 

De plus, la recherche de la solution nécessite quand même 
un nouveau calcul chaque fois que l'on change le second 

membre v c (t ). 

3) Enfin, un point non négligable est que la résolution numé- 
rique d'une équation différentielle n'est pas forcément redon- 
dante mais peut être utilisée à des fins de vérification. Quan- 
tifier (à une erreur près liée à la méthode de résolution nu- 
mérique) la solution pour une valeur de la variable (t par 
exemple) peut permettre de qualifier la solution analytique 
Y (t ) trouvée par intégration. 


Voici donc exposé les "intérêts" de la résolution numérique 
d'équations différentielles. 
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RESOLUTION NUMERIQUE D' EQUATIONS DIFFERENTIELLES SUR HP42S 


Nous allons à présent exposer quelques principes fondamen- 
taux de résolution numérique d'équation différentielles d'or- 
dre I à un pas (ce terme "un pas" sera explicité par la suite). 

Discrétisation de la variable t : 

Par une méthode numérique nous ne pouvons pas trouver 
une valeur de Y(t) pour chaque valeur de t, cela impliquerait 
un nombre infini d'évaluations de Y(t). 

En effet, résoudre une équation différentielle d'ordre 1 (ceci 
est bien entendu valable pour tout ordre supérieur) c'est re- 

chercher un fonction } dérivable sur un intervalle I c 

telle que Y'(t) = f(t, Y(t)). Donc puisque Y est dérivable 
alors elle est continue (attention la réciproque n'est pas for- 
cement vraie!) sur /, puisque t peut prendre toutes les va- 
leurs dans I intervalle ic , c'est à dire une infinité, alors 
Y(t) peut également avoir une infinité de valeurs. 

On va donc discrétiser la variable t, c'est à dire subdiviser 

l'intervalle / =/a,h] et construire ainsi des temps discrets 
(valeur particulières) de la sorte: 


t , = a +ii 

U = a+ 2 h 



t 0 +nh 


où h est appelé le PAS 



b 


On va donc approcher la solution Y(IJ par pas successifs en 
partant d'une valeur initiale Y(tJ connue. 


Par commodité on note 

Méth ode d'EULRR 


Y(t„ )= Y n 
Y(t n +h) = Y„ +1 


Nous avons à résoudre 


Y / (t) = f(t,Y(t)) 

Y(t 0 ) = Y 0 connue 
(condition initiale) 


Le Problème est d'évaluer la valeur de Y(t) ne connaissant ni 
l'expression analytique de Y(t), ni celle de Y’(t) mais unique- 
ment la relation les liants. 

D après le théorème des accroissement finis, puisque Y(t) 
est continue sur [a, b] et dérivable sur Ja,b| alors on peut écrire: 
Yft^+h) Y(tJ + h Y' (t'+d h) avec O<0 <1 
Soit encore: 

Y„ t =Y H + hr(t m +eh> (i) 


S e_p ose nt alors den* p roi, Icmes: 

1/ on ne connait pas Y'(t), donc Y'(t+Qh) 

^ !» < î » ~ ® f n+i > donc t n + 0 h ne fait pas partie de la 
suite des temps discrets î (j , t f ,...t (Hr +nh avec n entier. 

La méthode d ElIEER consiste donc à considérer que : 

1/ puisque il faut résoudre T(t) =f(t,Y(t)) on peut en pre- 
mière approche remplacer T(t) pai x f(UY(t )) l’équation ( 1 ). 

21 puisque t n < t n +6 h < t ^ i , on peut choisir la valeur tn à la 

place de t+Q h sachant que l'on commettra une erreur plus 
ou moins grande. 


Ceci donne donc la relation par récurence suivante - 

K + h.f(t„ ,Y„) 

La méthode d EULER consiste donc à évaluer la valeur Y 
giâce à la valeur } ; et la tangente à la courbe en t (figure 1 ). 
Ceci est une méthode à 1 pas car l'évaluation de Y ne 
nécessité que la connaissance de Y . > ’* 1 

fl 

Une méthode multipas est de la forme: 


La méthode d EULER est en générale relativement peu per- 
lormante, on lui préfère d’autre méthodes. 


fig I 



D une façon générale la méthode consiste à trouver une fonc- 
tion <j) telle que 

Y *<i=Y + h$(t n , Y n , h) 

Y 0 - a connue (condition initiale) 

marche le mieux possible.il existe un certain nombre de 
méthodes telles que La Méthode du Point Milieu, la mé- 
thode de HEUN, les méthodes de RUNGE-KUTTA qui sont 
plus performantes. 


RESOLUTION NUMERIQUE D* EQUATIONS DIFFERENTIELLES SUR HP42S 



Méthode de RUNGE-KUTTA 


On recherche toujours à résoudre le problème : 

m =f(tj(o) ‘ 

Y(tJ = Y connue 

Rechercher la solution Y(t) de cette équation différentielle 
revient à intégrer Y'(t), sachant que Y'(t) = f(t,Y(t)) 
soit Y(t) = >;+ f(tj(t))dt 
on vérifie bien que: 


1/ Y(îJ = Y car l'intégrale vaut zéro, (puisque les bornes 
sont identiques et valent t 0 ) 

dY 

2/ Y'(t) =f(l, Y(0) puisque — = (car Y ( , est une valeur 


constante connue) 
on peut donc écrire : 



/ ( t . Y ( t ) )d 


par le changement de variable t = / + u. h <=> dt — du 
cela donne : 

Y n + ~ Y n h J f ( t n Y uh ,Y ( t n + uh ) ) du 

L'idée est de subdiviser l'intervalle \t ,t +h] en un nombre 

L n n J 

de sous-intervalles q et de considérer que l'on connait les 
valeurs de Y(t) en ces points, soit Y n , ; Y n 7 (figure 2). 
On peut donc appliquer une méthode numérique d'intégra- 
tion (rectangle, trapèze, Simpson,...) et écrire : 

Y„ = Y, + h X bjfO.j -Y(ti )) 

'< j < q 



mais puisque on ne connait pas les Y la méthode consiste à 
les déterminer à nouveau par intégration: 

Y ni = Y n + hJ 1 f ( t n h- uh ,Y(t n + uh )).du 

que l'on va "approcher" aussi par une méthode d’intégration 
numérique, soit : 


C, = Y nhY à a„f(t.,Y( t. ) pour Si<, 


< j<i 

attention, on remarque que j<i donc i> I et de plus une éva- 
luation d'un Y ne fait intervenir que les valeurs des Y .; 

rtj ” nj-r 

Y ; ;Y . supposés déterminés auparavant avec comme 

valeur connue pour l'indice le plus petit: 




t 

n 


=f(C.Y(U) 


où p n . "représente" la valeur estimée de Y'(t) pour t = t n , 
La méthode consiste donc à associer à chacun des points 
intermédiares t n dans l’intervalle [t n ,t +h], la pente P n . et de 
déterminer y par une méthode d’intégration. 


Méthode Runge-Kutta "classique" 


Elle est définie selon le principe exposé précédemment avec 
q = 4. L'algorithme est le suivant: 

P =f (t Y) 

n, i J ■ n, n 

t =t + 1/2 h 

n, 2 n 

Y =Y ,J/+2h p , 

n, 2 nYj r n, 1 

Y = Y +1/2 h p , 

n<3 n 1 n y 2 

p =/ (t „ Y J 

1 n.,j J % n,2 n. i 



t +/t 


y = Y + h p , 

n,4 n 1 n,3 


P„.4 =f(Cr Y J 


Y - Y -Y h/6 (p +2 p +3 p +p J 

n+t n -- r nj 1 n/2 1 n/â 1 n_, 4 


On débute l'algorithme avec Y(tj - Y () connue qui est la 
condition intiale. 

Le pas h ne doit pas être trop grand car cela entraînerait 
une erreur trop grande liée à la méthode (ne pas oublier qu'une 
tangente à une courbe peut être utilisée localement en un 
point pour se substituer à celle-ci mais localement seule- 
ment!) mais le pas h ne doit pas être non plus trop petit car 
se sont les erreurs d'arrondi qui se cumuleraient au point de 
"fausser" notablement le résultat. 

Un pas h de 1 0 2 à 1 0’ 3 est suffisant généralement. 
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RESOLUTION NUMERIQUE D' EQUATIONS DIFFERENTIELLES SUR HP42S 

La solution exacte étant : 


Exemp le d'utilisation du programme 

Soit le circuit électrique suivant: 

T + V - V avec T - — 

dt R 



L = 0,î H et R = 1 Q 

Supposons comme condition initiale V/0) = 0 KOn appli- 
que une tension sinusoïdale V (t) = sin(63t). Que vaut V (t) à 
t =0.2 si 

Etape I 

il faut entrer la fonction Vf t) dqns la machine en considérant 
la variable t au premier niveau de la pile: 

01 LBL "VE (T) 

01 63 

03 X 

04 SIN 

05 RTN 

06 END 

Vous devez lire à la ligne 00: 00 {15-Byte Prgm} 


TCO 

K ( t = — — — ( e h x + - — sinm - cosc ùt ) + V e~ t T 

+ (Z(ù) XO> 

_ La valeur exacte est donc Vs(0,2s) = -0, 1326861 4... v 

_ Ce qui tait environ -4. 10~ d'erreur absolue. 

_ En changeant la condition initiale E =0,5 K dans Y et en 

recommençant l'opération précédente on trouve numérique- 
ment 

Y (0,2s) = -0,0652942 Eau lieu de 

V s (0,2s)=-0, 0652938V ce qui fait une erreur de -4. /^ envi- 
ron . 

Supposons maintenant que nous voulons connaître la valeur 
de Vf 0,2s) mais avec comme tension d'entrée une rampe* 
VJt)+2t. 

Nous avons donc l’équation : x —^-4- v t = t 

dt 

La solution de cette équation est ; 

y fi) = 2(1- r) + (V s0 + 2t) e-"' r 

Voici un tableau comparatif des résultats obtenus : 


Condition 

Initiale 

Pas h 

V (0,2) 
numérique 

Vs(0,2) 

relie 

Erreur 

Absolue 

OV 

5.10-3 

0,227067 

0,227067 

3.10-9 



0595V 

0566V 


OV 

2.10-3 

0,227067 

0,227067 

1,2.10-10 



0567V 

0566V 


IV 

5.10-3 

0,3624 

0,3624 

1,7.10-8 



02257V 

02339V 


IV 

2.10-3 

0,3624 

0,3624 

4.10-10 



0234V 

02339V 



Etape 2 

_ Lancer le programme "RK43 de la méthode de Runge- 
Kutta 4 

_ Un menu vous propose : 

Y n T n T max H A B pour AV'^B V= v e 

_ Entrez: V 0 =Y O dans L c'est à dire ici la val.O 

t 0 = 0 dans T n temps initial. 
t=-0,2s dans Tmax , temps final. 

5.1 0-* dans H (représente le pas ce qui fait 0,2/ 
5 10 >=40 itérations). 

T = L/R = 0,1 s dans A (coefficient devant 
Vs) 

1 dans B (coefficient devant Vs) 

Appuyer sur R/S et patientez ....une minute. 

_ Vous Lisez Y (0,2 s) = -0,1 3 29 61 9 ... V 


Voici le programme de la rampe V (t)=2t 

00 { 13 _ Byte Prgm } 

01 LBL "VE(T)" 

02 2 

03 X 

04 RTN 

05 END 

Voyez comme c’est simple à utiliser, on passe d'une 
sinusoïde à une rampe en quelques opérations. 

Co nclusio n: 

La méthode de Runge-Kutta quoique suffisante pour éva- 
luer numériquement Y(t) montre dans cet exemple qu'il y a 
mieux, notamment des méthodes multipas (P.E.C.E = Pré- 
diction - Evaluation - Correction - Evaluation) 
l’équation différentielle elle-même (coefficients et second 

membre) intervient dans l'erreur commise à chaque évalua- 
tion de Y n+j sans compter les erreurs d'arrondi. 

11 faut donc utiliser cette technique de résolution numérique 
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d'équations différentielles en connais- 
sance de ses limitations. 

On notera qu'un pas de l'ordre de 10 3 
semble convenir raisonnablement 
compte tenu des erreurs commises dans 
nos exemples et des valeurs de Tmini 
et Tmax. 


Bibliographie: 

. Analyse Numérique et Equations Dif- 
férentielles 

de Jean-Pierre DEMAILLY édition 


13 IP 

14 1 E-5 

15 + 

16 STO 04 

17 RCL "B" 

18 RCL , "A" 

1 9 STO 00 

20 EBE 01 

21 RCL "TN" 

22 RCE "YN" 

23 XEQ 02 

24 STO 0 1 

26 RCE ' "II" 

27 RCL + "TN" 

28 X oY 


50 X o Y 

5 1 XEQ 02 

52 RCL + 0 1 

54 , 

55 RCL 02 

56 RCL + 03 

57 3 

58 

59 + 

60 RCL ' "H" 

61 RCL + "YN" 

62 STO "YN" 

63 DSE 04 

64 GTO 0 1 

65 "YN POUR TN 


Tl 


PUG (collection Grenoble Sciences) 

29 RCL ' "H" 

. Initiation à l'Analyse Numérique 

30 0,5 

de Robert THEODOR édition MAS- 

31 ' 

SON 

32 RCL + "YN" 

Programme RK4 

33 XEQ 02 

(Résolution numérique d'équations diffé- 

34 STO 02 

rentielles du 1 er ordre) 

35 RCL ' "H" 

36 0,5 

00 {246 - byte Prgm ) 

37 ' 

01 LBL "RK4" 

38 RCL + "YN" 

02 MVAR "YN" 

39 0.5 

03 MVAR "TN" 

40 RCL ' "H" 

04 MVAR "TMAX" 

41 RCL + "TN" 

05 MVAR "H" 

42X0 Y 

06 MVAR "A" 

43 XEQ 02 

07 MVAR "B" 

44 STO 03 

08 VARMENU "RK4" 

45 RCL ' "H" 

09 STOP 

46 RCL + "YN’ 

10 RCL "TMAX" 

47 RCL "TN" 

1 1 RCL - "TN" 

48 RCL ' "II" 

12 RCL > "H" 

49 STO "TN" 


66 RCE "TMAX" 

67 ENTER 

68 A1P 



tf t! 


70 F P 

71 1E4 

72 ' 

73 A1P 


74 RCL "YN" 


75 EXITALL 

76 PROMPT 

77 GOTO "RK4" 

78 LBL 02 

79 RCL ' 00 

81 XEQ "VE(T)" 

82 RCL , "A" 

83 Xo Y 


84- 

85 RTN 

86 END 


î^îété:* Organisation Deb’s 
Nom: Thierry Desbruères 
EPro: 47 45 20 44, fax: 46 24 76 81 
Ad Pro: 139, avenue Charles de Gaulle 
92200 Neuilly 

Notes: vous propose la prise en dépôt de votre 
Sériés 3 pour mise en vente sur le marché 
d’occasion à travers son réseau et à vos 
conditions contre l’achat d’un Stries 3a. 


Trmmer: deb’s 
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Décomposition d’un nombre en ses facteurs 

l’ar le Dr. Herbert A. Keliner 


Ce petit programme permet la factorisation d’un nombre LONGINT r„i • • • 

" “ - *■ “ss~ - 



PROGRAM factorize; (*29/10/93*) 

(* ^ASIO PB-2000C+module DL- 
PASCAL*) 

(* < c ) 1993 F>r. Herbert A. Keliner *) 

USES Crt; 

(^Version for PC : 

CONS T 

a : ARRAY[0..7J 
OF BYTE=(4,2,4,2,4,6,2,6); *) 

TYPE 

pointer= A element; 

element=RECORD 

contenu:BYTE; 

next : pointer; 

END; 

ar8 -ARRAY[0..7J OF BYTE - 
VAR 

a:ar8=(4,2,4,2,4,6,2,6); 

racine, plr,save: pointer; 
n,divi : LONGINT; 
i : BYTE; 

FUNCTION readint chk:LONGINT* 
VAR 

ni: LONGINT; 
strl,strn : S TR ING; 

err : BYTE; (*for PC: 1NTEGER f * ) 
BEGIN ' ; 

WRITE ( IN l.POS NumbeiO ■ i \- 
READLN(strn); ‘ ’ ’ 

VAL(stm,nI,err); 
nl:=ABS(nl); 

STR(nl ,strl ); 

IF (stmostrl) OR (erroü) THEN 
BEGIN 

WRITELN (#7,’ S TO P. IN PUT 
ERROR?’); 

HA LT; 

END; 

IF n!=0 THEN HALT; 

read_int_chk.-n I ; 

END; 



wt 


PROCEDURE initialize pointer 
VAR 

ind.BYTE; 

BEGIN 
NEW(ptr); 
racine— ptr; 
save:-ptr; 




END; 

IF expooO T 
IF ex pool THEN 

WR[TE(‘*’,divi, , exp(‘,expo,’)’) 

EL SE WRITE(‘*’,divi); 


END: 


FOR ind:=0 TO 7 DO 
BEGIN 

racine A .next,— ptr; 
racine.— ptr; 

racine A .con tenu .-afindj; 

NEW(ptr); 

END; 

rac i ne ' . next : ^sa ve ; 
ptr— save; 

END; P 

ROCEDURE divpmt* 

VAR 

expo.BYTE; 

BEGIN 
expo— 0; 

WH ILE n MOD divM) DO 
BEGIN 

n.-n DIVdivi; 
expo— S U CC (expo); 


BEGIN (*main_program*) 

RE PE AT 

n;= read int chk; 
initialize pointer; 

WRITEC 1 ’); 

FOR i :=0 TO 3 DO 
BEGIN 

divi ;= i SHL 1 + 1; 

1F i=0 I LIEN divi:=SUCC(divi); 
divprnt; 

END; 

REPEAT 

d i vi ; =di v i+ptr A . conten u ; 
ptr:= ptr A .next; 
divpmt; 

UN TIL n DIV divi<divi; 

IF no I THEN WRITEC*’ n V 
WRITELN; . 

UN TIL FALSE; 
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PROGRAMMES POUR CASIO PB1000 


par Daniel PRATLONG 


GRAPHES SUR CASIO PB 1000 

Cet ensemble de programmes vous permettra de tracer des courbes en deux dimensions : en coordonnées cartésiennes , 
paramétriques , ou polaires. Les trois premiers programmes ( Graph , Param, Polar) sont indépendants. Par contre , les 
4 autres programmes sont nécessaires aux trois premiers. Vous devez respecter V orthographe exacte des noms de 
chaque programme (en respectant les minuscules/majuscules dans V écriture). Pour mieux comprendre le problème 
regardez la ligne 50 du programme Graph. Avant de lancer un programme vous devez V éditer pour entrer votre 
fonction sur la deuxième ligne. Ensuite , le fonctionnement est assez proche d’une CASIO Graphique. Le seule (sel) est 
V écart entre deux graduations sur le repère. Si vous ne donnez pas de valeur , la valeur par défaut sera 1 (une unité par 
graduation). Pour les fonctions trigonométriques , il est intéressant de donner sel = PI/2 ou Pl/4. Si vous tapez A au lieu 
de donner une valeur pour Y min , le repère créé sera orthonormé . Dans ce genre de repères, un cercle est un cercle 
(sinon c’est une ellipse !). Le paramètre speed est l’écart entre deux point réellement calculés de la courbe. Pour 
speed=l tous les points sont calculés , mais le traçage , est plus lent. Si vous ne donnez pas de valeur pour speed, il 
vaudra 4 par défaut Dans l’écran suivant, il vous est demandé , si vous voulez superposer une image sur votre courbe. 
Si tel est le cas, remplacez le N par le nom du fichier-image. Si vous voulez sauver votre courbe après le traçage, 
procédez de la même façon. 


Graph : 

10 GOTO50 
20 Y=S1NX 
30 RETURN 
40 K=0:RESUME120 

50 GOSUB» Range»:GOSUB»Superpo»: GOSUB» Repere 

70 ONERRORGOTO40 

80 FORX=XI TOXM STEPe 

90 GOSUB20:A=X*U+a:B=-Y‘V+b 

100 !FK=0THENC=A:D=B:K=1 

110 DRAW(C,D)-(A,B)*C=A:D=B 

120 N EXT 

130 GOSUB» Fin»:GOTQ50 

Param : 

1 0 GOTO60 
20 X=COS(T+T) 

30 Y=SINT 

40 RETURN 

50 K=0:RESUME170 

60 GOSUB» Range 

70 CLS:PRINT»T min =»Ti 

80 PRINT»T max =»Tm 

90 LOCATE7,0:INPUT»»,Ti 

100 LOCATE7, 1 : INPUT»»,T m:iFTÏ>=T m THEN9Q 

110 GOSUB»Superpo»:GOSUB»Repere 

120 ONERRORGOTO50 

1 30 FORT=Ti TOTm STEPe 

140 GOSUB20:A=X*U+a:B=-Y*V+b 

1 50 iFK=QTHENC=A:D=B:K=1 

160 DRAW(C,D)-(A,B);C=A:D=B 

17QNEXT 

180 GOSUB»Fin»:GOT06Q 

Polar : 

1 0 GOTO50 

20 R=H 

30 RETURN 

40 K=0:RESUME160 

50 GOSUB» Range 

60 CLS:PR!NT»H min =»Hi 

70 PRINT»H max =»Hm 

80 LOCATE7,0:IN PUT » » ,Hi 

90 LOCATE7,1 :INPUT»», Hm:IFHi>=Hm TH EN 80 

1 00 GOSUB»Superpo»: GOSUB»Repere 

110 ONERRORGOTO40 

120 FORH=Hi TOHm STEPe 

130 GOSUB20: X=R’COSH: Y=R*SINH; A= X*U+a:B=-Y*V+b 
140 !FK=0THENC=A:D=B:K-1 
150 DRAW(C.D)-(A,B):C=A:D=B 
160 N EXT 

170 GOSUB» Fin»:GOTO50 


Range : 

10 CLS:PRINT «Range 

20 0NERRORGOTO130 

30 PRINT»X min >XI,» max :»XM,» sel :»SX; 

40 LOCATË7.1 :INPUT»».XI: LOCATE7.2: fNPUT»»,XM: IFXM<=XI THEN40 
50 LOCATE7,3:INPUT» »,SX: IFSX<=0THENSX=1 
60 CLS:PRINT»Y min :»YI,» max :»YM,» sel :»SY,»speed >P 
70 LOCATE7,0:!NPUT » ».YI S: IFYl$=»A»THENw=1: YI=-1E20 
ELSEYÎ=VAL(YI$):w=0 

80 LOCATE7 : 1-INPUT»»,YM: IFYM<=YI THEN70 
90 LOCATE7.2:INPUT»».SY: IFSY<=0THENSY=1 
100 LOCATE7,3:INPUT » »,P: IFP<=0THENP=4 
110 iFLE=OTHENLE=150 
120 RETURN 

130 CLS:INPUT»>Error...».A$:RESUME10 

Repere : 

1 0 GOTO60 
20 RESUME110 
30 RESUME 130 
40 RESUME160 
50 RESUME180 

60 UH=SX*LE/(XM-X!):UV=SY*31/(YM-YI): a=-Xt/SX*UH:b=YM/SY T UV: 
IFw=lTHENUV=UH:YI=YM-SY*31/UV:b=YM/SY*UV 
70 IFa=>0ANDa<LE THENDRAW(a,0)-(a,63) 

80 IFb=>0 AND b<63 THEN DRAW(0.b)-(LE,b) 

90 0=b-1 : !FO<0 OR 0>63 THEN 140 

100 ONERRORGOTO20:FORg=a TOLE STEPUH:DRAW(g,0) 

110 N EXT 

120 ONERRORGOTO30:FORg=a TOOSTEP-UH:DRAW{g.O) 

130NEXT 

1 40 0=a+1:l FO<OORO>LE THEN 1 90 

150 ONERRORGOT040:FORg=b TO0STEP-UV:DRAW(O,g) 

1 60 N EXT 

170 ONERRORGOTO50:FORg=b T063STEPUV:DRAW(0,g) 

180 N EXT 

190 ANGLE1 :K=0:U=LE/(XM-XI):V=31/(YM-YI):e=P/U:RETURN 

Superpo : 

10 CLS:!FS$=»»THENSS=»N» 

20 IFP$=» »THENP$=»N» 

30 PRINT»Sauver : «S$.»Superposition : «PS 
40 LOCATE9 : 0:INPUT»»,SS:LOCATE16,1 : INPUT»»,P$ 

50 IFP$=»N»THENCLSELSECLS: BLOADPS, 25089 
60 RETURN 

Fin : 

10IFS$o»N»THENBSAVESS, 25089,1 536 
20 LOCATE30,0:INPUTQ$ 

30 LOCATE23,6:PRINT»X'X..: 2";LOCATE23,5:PRiNT» Range: 1 40 
A=VAL( I N KEY$) :ON A GOT060,50:GOT040 
50 CLSiPRINT »X'X=»;LEi LOCATE4 0: 
INPUT»»,LE:IFLE<=0ORLE>191THEN50ELSE30 
60 RETURN 
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CALCUL MATRICIEL SUR PB1000 

Z7ZZ7Zr m r * J,lire kS ‘“‘^Possibles e, imaginables sur les matrices e, les vecteurs 

C addition , multiplication , puissance , déterminant , inversion , vy/Zcm™ propres systèmes linéaireK J II ™ r 

f' a " dl ' S m, " r ‘ ces J l vous /«ut tle la mémoire ! Et H faut que votre machine soit bien configurée ’ Consultez lemanuel 
; CWARmMOO Ur lef0nCtUm — t de bi/onction CLEAR. Ma PB ,000 est configurée de la façon suivante 

V utilisation du programme est assez intuitive. Certains menu et utilisent l'écran sensitif d'autres le davier Certain 

ESfz t, t mp, i u v,ms est demund - un n ° * J ° n " e - * r 

A/ wia tapez Z, toutes les colonnes seront initialisées à zéro. Enfin si vous tune * 0 ou rh>» , 

/nenw. cAm» ; fois du calcul des valeurs propres, il vous est demandé, deux valeurs d’ initiait. sationde Pd Q l'es 

Si cZrzZÏZlZZt™ ‘TiTTZt T atfmaL en général : lancez fe ca,cul avec ** *e=°' 
réelle (examen). Je pense que vous pouvez lui faire aZfiaJe. ZZpZ 

sieurs fois, et évitez d’apporter des modifications. Daniel PRATLONG. " 


y> 


5 IFm=6THEN100 

10 CLEAR:m=6:DIMA(m,m), B(m.m) , C(m,m),D(rn,2*in),VE(3m) 

30 DIMd(4,2),M$(3),DV{3), WS(3): DEFCHR$(240)=»1 0101Q40F000’ 1 - 
DEFCHR$(241)=»FC304884103E»; DEFCHR$(242)=»FC3048842E3A»- 
DEFCHRS(243)=>»F84080807800 

i^S 1)= r A ” :W$(2}=, ’ Bw: M $( 3 ) =,, C KWS=»W=»+CHR$(241)+».U+»+ 

mcrmpatibles ! V ” :KA ^ =CH R$( ^ 4 ^ + ”’ A+m+CHR ^^ 43,+ ”- b ” : D IC$=«Dimensions 

nL V ri V Jn^î?” :VV$(2)=,>V ” : W$(3, ^ w " : P=1E-7:PADEFS= » Vecteur/matrice 

P«S QGTiniï G) 

i°r^ 0:CL f : oT TREV>>MATRICES ET VECTEURS>.NORM,>1_Manip. vect. ! 

4 Cale. vect. 2 Viamp. malncl 5_Calc. matric 3_ Cale. V=A.U I 6 System A.x=U 

499 Delt(A)^ INKEY$ ' ° NE GOT01000 ’ 2000 ’ 4000 > 3000 ’ 35 °0. 8000:GOT0190 

500 DR=1:RG=N 
510 FORK=1TON 
520 l=K 

530 IFI>N THENDR=0:RG=RG-1 :GOTO61 0 
540 IFABS(D(l,K))<p THENl=l+1 :DR=-DR:GOTO530 

Sn ™ T HE ^ ORJ = 1T 0^+P: U=D(I,J):D(I,J)= D(K,J):D(K.J)=U: N EXT 
560 FORI=K+1TON+P: D{K,I)=D(K,I}/D{K,K):NEXT 
570 DR=DR*D(K,K):D(K.K)=1 
580 FORI=1TOÎSI 

600 nÉxt K THENF 0RJ=K+1T0N+P:D < ! ’ J )= D ( | - J )- D ('-K)’D(K,J): NEXT:D(l,K)=0 

610 NEXTK:RETÜRN 
900 IFL=1THENU=A(I,J) 

910 !FL=2THENU=B(I,J) 

920 IFL=3THENU=C(I,J) 

930 ÎFL=4THENU=D(I,J) 

940 RETU R N 
950 IFM=1THENA(I,J)=U 
960 IFM=2THENB(I,J)=U 
970 IFM=3THENC{I,J)=U 
980 IFM=4THEND(I,J)=U 
990 RETURN 

PRINTREV>,V ECTEURS»TAB(24); NORM.>[Retour][ IN U lf IN V 1 F in 
] CHR^lÏ/ 0 ^ V K0UT W 11 V=U » U=V ][ W=U ][ U=W ] [ w=V ï vJw 

1150 E=ASC(INKEY$)-243 
1155 IFE=0THEN100 

1160 °NINT((E-1)/3+1) GOSUB1 300, 1500.1 600,1 600: IFE>0TFIËN10G0 ELSE 
1 1 50 

il 3 c° l )fY= E;CLS:PRINT ‘ ,Ën t''ee de «VV$(NV):INPUT» Dimension : « F 1330 
IFE<10RE>m THEN1420 

1340 DV(NV)=E: FORI=1TODV(NV) 

1370 PRINTVVS(NV)»(«|;: INPUT»)=»,NN 

1400 VE(NV,|)=NN:NEXT 

1420 RETURN 

1500 CLS:NV=E-3 

1520 IFDV(NV)=0THENPRINTPADEF$:GOTO1590 

1530 FORI=1TODV(NV);PR|NTVV$(NV)» («|»)=»VEtNVIV 
1580 GOSUB9O40:NEXT ’ ’ 


1590 GOSUB9040: RETURN 
1600 IFE=7THENVD=1:VA=2 
1610 iFE=8THENVD=2:VA=1 
1 620 IFE=9THENVD=1 :VA=3 
1630 IFE=10THENVD=3:VA=1 
1640 IFË:=11TFIENVD=2:VA=3 
1650 IFE=1 2THENVD=3:VA=2 

1660 DV(VA)=DV(VD) ; FORI=1TODV(VD):VE(VA.n=VEîVD IV 
NEXT:E=3+VA:GOSUB1500:RETURN 

2000 CLSPRINTREV» MATRICES» TAB(24};NORM»(Retour][ IN A 1 f IN B ÏÏOUT 
A ][OUT B ][OUT C ][ C:=A ]{ A:=C ][ C:=B ] [ B:=C ][ B:=A ][ A 
J[Transp]»CHRS( 11 ) 

2150 E=ASC{INKEY$)-243:IFE=0THEN1O0 
2170 IFE=12GOTO2890 
2180 IFE>5GOTO2700 

21 90 !FE>2GOTO2500 

2191 IFE>0GOTO2200 
2195 G0T0215Û 

2200 CLS:PRINT»Entree de «;M$(E) 

2210 INPUT»Nb lignes =»,NL: IFNL>m ORNL<0THEN22!0 

t-230 I N P U T » N b colonnes =»,NC:IFNC>m ORNC<0THEN2?30 

2250 !FNCo0G0T02280 

2260 IFNLoOGOTOI 00 

2270 d(E, 1 )=0:d(E,2)=0:GOT02000 

2280 IFNL=0 GOTOIOO 

2290 d(E, 1 )=NL:d{E,2)=NC:M=E 

2300 INPUT»No COLONNE >,Z$:IFZ$=»T>.THENFORJ=1TONC 

GOSUB2400:NEXT:GOTO2300 

2320 IFZS=»Z»THENFORJ=1 TONL: FORJ=1TONC:U=0: 

GOSUB950:NEXT:NEXT:GOTO2300 

2330 J=VAL(ZS):IFJ<=0GOTO2000 

2340 IFJ<=NC THENGOSUB2400 

2350 GOTO2300 

2400 FORl=1 TONL 

2410 PRINTM$(E)»(«f»,»J;;INPUT»)=»,NN 
2440 U=NN:GOSUB950:NEXT: RETURN 

™ N T CL W M' E - 2:IF ?IE\ ) iI HENPRINTPADEF$:G0SUB »« 

PHINT»Nb lignes. »d(L, 1 ),»Nb colonnes: »d(L. 2 ) 

2550 INPUT»No COLONNE:» : Z$ 

2560 IFZ$=»T»THENGOSUB2670:GOTO2550 
2570 J=VAL(ZS):IFJ<=0GOTO2000 
2580 IFJ<=d(L,2)THENGOSUB2600 
2590 GOTO2550 

2600 FOR!=1 TOd(L,1 );GOSUB900: PRINTM$0-M«|» 

2650 GOSUB9040:NEXT:RETURN ’ 

2670 FORJ=1TOd(L2):GOSUB2600 :NEXT:RETURN 

2700 IFE=6THENL=1:M=3 

271 0 IFE=7THENL=3:M=1 

2720 IFE-8THENL=2:IVI=3 

2730 IFE=9THENL=3:M=2 

2740 IFE=10THENL=1;M=2 

2750 IFE=11THENL=2:M=1 

2760 CLS:PRINT»Transfert de «M$(L)>> dans «M$(M) 
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/ 


2770 GOSU B28 1 0: GOT 02000 

2810 d(M,1)=d(L,1):d(IVt I 2)=d{L,2): FORI=1TOd(M,1):FORJ=1TOd(M,2): 
GOSUB900:GOSUB 950: N EXT: NEXTRETURN 
2890 CLS:PRINTREV»TRANSPOSER»NORM 
2900 INPUT»Matrice: «,Z$ 

291 0 M=ASC(Z$)-64:I FM<1 ORM>3TFIEN2900 

2950 d(4,1)=d(M,2):d(4,2)=d(M,1): UM:IFd(4,1)=0THEN2990 

2970 FORJ=1TOd(4,1): FORl=1TOd(4,2): GOSUB900:D(J.1)=U: NEXTNEXT 

2980 L=4:GOSUB281 0:GOT02000 

3000 CLS:PRINTREV»CALCUL VECTORIEL»NORM,»1_»KW$» I 3. Vectoriel 
U A V2_Scalaire U.V ! 4 Retour»; 

3080 E=VAL(INKEY$):ONE GOSUB31 00.3200,3300, 100 
3086 !FE=0THEN3O80 
3090 GOT03000 

3100 CLS:PRINTREVKWS;NORM 
3110 IFDV(1)oDV(2)THENPRINT D!C$:GOTO3190 
3120 GOSUB9020 
3140 DV(3)=DV(1) 

3150 FOR!=1TODV(1) 

3160 VE(3,I)=K1*VE(1 ,1)+K2*VE{2,I) 

3170 NEXT 

3180 E=6:GOSUB1500 
3190 RETURN 

3200 CLS:PRINTREV» PRODUIT SCALAfRE»NORM 

3210 IFDV(1) <>DV(2)THEMPRINTDIC$:GOTO3290 3220 X=0 

3230 FORI=1TODV(1):X=X+VE(1,l)*VE(2,!):NEXT 3260 PRINT»U.V = «X; 

3290 GOSUB9040: RETURN 

3300 CLS:PRINTREV» PRODUIT VECTORIEL» NORM 
3310 IFDV(1 )<>30RDV(2}<>3 THENPRINTDICS:GOTO3370 
3320 DV(3)=3 

3330 VE(3,1 )=VE(1 ,2)’VE(2,3)-VE(2,2)*VE(1 ,3) 

3340 VE(3,2)=VE( 1 ,3)*VE(2, 1 )-VE(2,3)*VE(1 , 1 ) 

3350 VE(3,3)=VE(1,1)*VE(2,2)-VE(2,1)*VE(1,2) 

3360 E=6:GOSUB1500 
3370 RETURN 

3500 CLS:PRINTREV»CALCUL MATRlClEL»NORM;TAB(24}»[Retour] 

3510 PR1NT»[«KA$»][ A. B ][ A»CHR$(243)» ]»,«[Det(A) ][ A»CHR$(240}» 1 
[v.prop]»; 

3570 E=ASC(INKEY$)-242 

3580 ONE GOT0100, 4500, 5000. 5500 ,100,4500, 5000,5500.100, 6000,6500,7000 
3590 GOTO3570 

4000 CLS:PRlNTREV»V=A.U »NORM 
4020 GOSUB9010:IFz THENz=0: GOTO4140 
4030 IFDV{1)=0THEN PRINTPADEF$: GOTO4140 
4040 !Fd(1,2)oDV(1)THEN PRINTDICS: GOTO4140 
4050 DV(2)=d(1,1) 

4060 FORI=1TODV(2) 

4070 VE{2.!)=0 
4080 FORJ=1TODV(1) 

4090 VE(2,I)=VE(2,I)+ A(I,J)‘VE(1,J) 

4100 NEXT 
4110 NEXT 
4120 E=5 

4130 GOSUB1 500:GOTOl 00 

4140 GOSUB9040:GOTOl 00 

4500 CLS:PR!NTREV»C==» KA$;NORM 

4520 GOSUB902O 

4540 IFK1 =0GOTO4590 

4550 IF(d(1 , 1 )<>d(2,1)OR d(1 ,2)<>d(2,2))ANDK2<>0THENPRINTDIC$:GOTO4680 
4560 GOSUB9010:IFz THENz=0:GOTO4680 
4570 d{3,1)=d(1,1):d(3,2)=d(1 ,2) 

4580 IFK2=0 GOTO4620 

4600 !Fd(2,1)=0THENPRINT PADEF$: GOTO4680 
4610 d(3,1)=d(2,1):d(3,2)=d(2,2) 

4620 FORI=1TOd(3,1) 

4630 FORJ=1 TOd(3,2) 

4640 C(I,J)=K1 *A(l,J)+K2*B(i,J) 

4650 N EXT: N EXT 
4670 L=3:GOSUB2670 
4680 GOSUB9040:GOT03500 
5000 CLS 

5010 PRîNTREV»C=A.B»NORM 
5020 GOSUB9010:IFzTHENz-0:GOT05150 
5030 IFd(2,1)=0THENPRINT PADEF$:GOTO5150 
5040 IFd(1,2)od(2,1)THENPRINT DIC§:GOTO5150 
5050 d(3, 1)=d(1,1):d(3,2)=d(2,2) 

5060 FORI=1TOd(1,1) 

5070 FORJ=1TOd(2,2) 

5080 C{l,J)=0 

5090 FORK=1TOd(1 ,2) 


5100 C(I,J)=C(I,J)+A(!,K)*B(K,J) 

5110 NEXT 
5120 NEXT 
5130 NEXT 

5140 L=3:GOSUB2670 

5150 GOSU B9040: GOT 03500 

5500 CLS:PR!NTREV»C=:A» CHRS(243):NORM 

5520 GOSUB9010:IFz THENz=0: GOTO5800 

5530 GOSUB9000:IFz THENz=0: GOTO5800 

5540 INPUT»n=»,NN: NN=INT(ABSNN) 

5550 N=d(1 ,1):d(3,1)=N:d(3,2)=N 

5560 FORF=1TON:FORJ=1TON: C(l,J)=0:D(l,J)=A(l,J); NEXT:C(I,I)=1:NEXT 

5570 !FNN=OGOTO 5790 

5580 PE=0:U=NN/2 

5590 IFU=!NT(U)THENPE=1 : NN=U 

5600 IFPE=OTHENNN=NN-1 

5610 FO RU 1 TON 

5620 FO RJ =1TON 

5630 K=J+N:D(l,K)=0 

5640 FOR U 1 TON 

5650 U=C(I.L) 

5660 IFPE=1THENU=D(I,L) 

5670 D(I,K)=D(LK)+U*D(L.J) 

5680 NEXT 
5690 NEXT 
5700 NEXT 
5710 FORI=1TON 
5720 FORJ=1TON 
5730 U=D(I,J+N) 

5740 1FPE=0THENC(I,J)=U 
5750 IFPE=1THEND(I,J)=U 
5760 NEXT 
5770 NEXT 

5780 IFNN>0THEN5580 

5790 L=3:GOSUB2670 

5800 GOSUB9040:GOTO350û 

6000 CLS:PRINTREV «DETERMINANT DE A»NORM 

6020 GOSUB9010:IFz THENz=0:GOTO6110 

6030 GOSUB9000:IFz THENz=0:GOTO611 0 

6040 L=1 :M=4:GOSUB2810 

6050 P=1 :N=d(1,1):GOSUB500 

6060 PRINT »Det(A)=»DR 

61 00 IFRG<d(1 ,1)THEN PRINT » Rang(A)=»; RG 

6110 GOSUB9040:GOT03500 

6500 CLS 

6510 PR!NTREV»C=A» CHR$(240);NORM 
6520 GOSUB901 0:IFz THENz=0:GOT06670 
6530 GOSUB9000 : 1 FzTH E Nz=0 :GOTO6670 
6540 INPUT»Muitiplication par Det(A) «:Z$ 

6550 N=d(1 ,1):d(3,1 )”-N:d(3,2)=N 
6560 FORI=1 TON 

6570 FORJ=1TON:D(I,J)=A{I,J): NEXT 

6580 FORJ=N+1 TON+N:D(I,J)=0:NEXT 

6590 D(i,N+l)=1 

6600 NEXT 

6610 P=N:GOSUB50Q 

6620 IFDR=0THENPR!NT»La matrice n'est pas inversible.»:GOTO6670 
6630 PRINT»Det(A)=»;DR 
6640 IFZ$o»0»THENDR=1 

6650 FORI=1TON:FORJ=1TON: C(Î,J)= DR‘D(l,J-rN):NEXT:NEXT 

6660 L=3:GOSUB2670 

6670 GOSUB9040: GOT 03500 

7000 CLS:PRINTREV»VALEURS PROPRES DE A»NORM 

7020 GOSUB9000:IFz THENz=0:GOTO7630 

7030 IFd(1,1)<2THEN 100 

7040 N=d(1,1):A(0,0)=1 :d(4.1)=N: d(4,2)=N:CT=1 

7050 INPUT»P=».P:INPUT»Q=»,Q 

7060 FORI=1TON:FORJ=1TON:C(U}=0: NEXTNEXT 

7070 FOR U 1 TON 

7080 FORI=1TON:C{l,l)=C(l,l) +A(0,K-1 ):NEXT 
7090 FORU1TON 
7100 FORJ=1TON 
7110 D(l,J)=0 

7120 FORL=1TON:D{l,J)=D(l,J)+ C(I,L)*A(L,J): NEXT 
7130 NEXT 
7140 NEXT 

7150 L=4:M=3:GOSUB2810: A(0,K)=0 
7160 FOR!=1TON:A(0.K)=A(0,K)+C(l,l): NEXT 
7170 A(0,K)=-A{0.K)/K 
7180 NEXT 
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PROGRAMMES POUR CASIO PB1000 


PROGRAMMES POUR CASIO PB1000 ... 


■COHPUTf B5 

r 


7190 IFN=2THENP=A(0,1):Q=A(0,2): GOTO7400 
7200 J— 0 

7210 B(0,0)=A(0,0):B(0, 1 )=A(0,1 )-P*B(0.0) 

7220 FORK=2TON 

7230 B(0,K)=A(0,K)-P*B(0,K-1 )-Q*B(0,K-2) 

7240 N EXT 

7250 C(0,0)=B{0,0):C(0,1)=B{0,1)-P*C(0,0) 

7260 1 FN=3TH EN7300 
7270 FORK=2TON-2 

7280 C(0,K)=B(0,K)-P’C{0,K-1 )-Q*C(0,K-2) 

7290 N EXT 

7300 C(0,N-1)^P*C(0,N-2)-Q*C(0,N-3) 

7310 DD=C{0,N-2)*C(0,N-2)-C(0,N-1)' r C{0,N-3) 

7320 ^(O.N-irCfO.N^-BtO.NrCfO.N-S) 

7330 V=B(0,N)*C(0,N-2)-B(0,N'1)*C(0,N-1) 

7340 IFDD=OTHENPRINT»Valeurs de P et Q inadaptées !»:GOTO7630 7350 X=U/ 

DD:Y=V/DD 

7360 P=P+X:Q=Q+Y 

7370 IF(ABSX+ABSY)<p THEN7400 

73801 FJ<1 00THENJ=J+1 :GOTO7210 

7390 PRINT»Le calcul nécessite trop d'itérations !»:GOTO7630 

7400 T=P’P-4*Q 

7410 IFT<0THEN7490 

7420 U=(-P+SQRT)/2 

7430 IFABSU<p TH EN U =0 

7440 PRINT>>L»CT»=»U 

7450 U=(-P-SQRT)/2 

7460 IFABSLkp THENU-0 

7470PRINT»L»CT+1"=»U;:GOSUB9040 :GOTO7540 

7490 U=ABS(SQR-T)/2 

7500 IFABSU<p THENU=0 

7510 IFABS{P/2)<p THENP=0 

7520 PRINT»L»CT»=»;-P/2“+»ROUND(U,-8)»i» 

7530 PRINT»L»CT+1"=»;-P/2"-»ROUND(U,-8)»i»;:GOSUB9040 


7540 N=N-2:CT=CT+2 

7550 FORI=OTON:A{O.I)=B{0,I):NEXT 

7560 IFN>2THEN7200 

7570 1FN=2THENP=B(0,1): Q=B{0,2):GOT07400 
7580 IFN<1THEN7620 
7590 U=-B(0,1)/B(0,0) 

7600 IFABSLkp THENU=0 
7610 PRINT»L»CT»=«U 
7620 d(3.1)=0:d{3,2)=0 
7630 GOS UB9040: GOTO3500 
8000 CLS 

8010 PRIN TREV»SYSTEME : A.x=U»NORM 
8020 G OSU B90 1 0: 1 Fz TH EN z=0: G 0T08 1 80 
8030 IFDV(1)=0THENPRINTPADEF$ :GOTO8180 
8040 GOSUB9000:IFz THENz=0:GOTO8180 
8050 lFd(1 ,2)<>DV(1 )THENPRINTD1C$: GOTO8180 
8060 N=DV(1 ):DV(3)=N 
8070 FORI=1TON:D(l,N+1 )=VE(1 ,(): NEXT 
8080 L=1 :M=4:GOSUB2810 
8090 P=1 :M=4:GOSUB500 

8100 !FDR=OTHENPRlNT»Le système est dégénéré '»:GOTO8180 
81 10 PRINT»Solution> 

8120 FORklTON 

8140 PRINT»X»I»=»D(I.N+1); 

8160 VE(3,i)=X 

8170 GOSUB9040: NEXT 

8180 GOSUB9040:GOTO1 00 

9000 I Fd ( 1 , 1 )<>d ( 1 ,2)TH E N P R I NTDIC$: z= 1 

9005 RETURN 

9010 ÎFd(1,1)=0THEN PRINTPADEF$:z=1 
9015 RETURN 

9020 PRINTCHR${241 );:INPUT » = «,K1 

9030 PRINTCHR$(242);:INPUT» = «,K2: RETURN 

9040 INPUT»»,ZS: RETURN 


CALCULS SUR LES DATES POUR CASIO PB1000 


Lorsqu 'on te lance , , ce programme affiche sur un premier écran l'heure et la date sous une forme intelligible . Si 
vous tapez sur une touche vous vous retrouvez, devant un menu qui vous propose les choix suivants : 

[JJ Calendrier perpétuel (2 J Calcul du nombre de jours entre deux dates 
[3/ Calcul de la date n jours après une date donnée J4J Retour à la pendule 
V utilisation de chacun des sous-programmes est intuitive . Daniel PRATJLONG. 


10 CLS 

20 LOCATE24, 0: P RI NTT I M E$ 

30 T=1 :GOSUB1 30:T=0:PRINTA$ 

40 LOCATE9.2: PRINTMID$(DATE$.4.2)« «;:GOSUB 60 : 

PRINTMS» «R!GHT$(DATE$,4) 

50 IFINKEY$=»»THENLOCATE24,0: PRINTTIME$: GOTO50ELSE90 
60 RESTORE80:I=VAL(LEFT$(DATE$,2)): FORJ=1 TOI: READM$:NEXT: RETURN 
70 DATADimanche.Lundi.Mardi, Mercredi, Jeudi, Vendredi, Samedi 
80 DATAJanvier.Fevrier, Mars,Avril, Mai, Juin, Juillet, Août, Septembre, Octobre. 
Novembre, Décembre 

90 CLS:PRINT»Ca!endrier: [1]», «Entre deux dates:[2]», 

«Date + n jours:.. [3]**, «Retour: [4]»; 

100 l=VAL(INKEY$):ONI GOTOI 20,270,320, 10:GOTO1 00 110 l ** Calendrier ** 

120 G$=»»:GOSUB230 

130 IFT THENJ=VAL„(MID$(DATE$,4,2)): 

M=VAL(LEFT$(DATES,2)):A=VAL{RIGHT$(DATE$,4)) 

140 MO=M:AN=A 
150 !FM>2THEN170 
160 A=A-1:M=M+12 

170 E=INT(A/1 00) : K=A- E* 1 00: B=INT (2.60001*(M-2)-.2)+J+K:B=B+INT(K/4)+ 
INT(E/4)-2*E:B=B-INT(B/)*7+1:RESTORE70 
ISO FORI=1TOB:READA$:NEXT 
190 IFT THENRETURN 

200 PRINT» Le»J;CHR$(8); MO;CHR$(8);AN»est un «A$ 


210 INPUT»»,AS:GOTO90 
220 Saisie date ** 

230 CLS:PRINT->Donnez une»G$« date:>*:iNPUT»JJ: «,J: 

INPUT»MM: «,M:!NPUT»AAAA: «,A 

240 IFJ<10RJ>310RM<10RM>12 ORA<1901THENPRINT»Erreur» GOTO230 

250 RETURN 

260 Entre 2 dates * + 

270 GOSUB290:GS=»»:GOSUB230: GOSUB280:R=N:G$=» autre»: 
GOSUB230:GOSUB280:R=R-N:PRlNTABSR»jours entre ces 2 dates. »:GOT02 10 
280 N=365.25*(A-1901)+A(M)+J:N=INT(N):RETURN 
290 ERASEA:DIMA(12):A(1)=0:A(2)=31: Af3)=59.25:A(4)=90.25: 

A(5)=1 20.25 :A(6)=1 51 ,25:A(7)=1 81 .25: A(8)=212.25:A(9)=243 25: 

A(1 0)=273.25:A(1 1 )=}=1 81 .25:A{8}=2 12.25: A(9)=243.25:A(10)=273.25: 
A(11)=304.25:Af 121=334.25 
300 RETURN 
31 0 Date +n ** 

320 CLS:GOSUB290 

330 G$=»»:GOSUB230:GOSUB280: INPUT»+ n jours: «,n N=N+n' a=INT(N/ 
365.25+1901) 

340 FORm=1 TO1 1 :j=tNT(N-(a-1 901 )*365.25-A(m))+1 
350 lFj<32THEN360ELSENEXT 

360 PRINTn «jours après le»J;M:A» c’est le»j;m:a:GOTO210 370 PRINTn»jours 
après le»J;M;A» c’est !e»j;m;a:GOT021 0 
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ROUTINE SONORE POUR PB1000 

En assembleur automodifié 
Par Pierre-Philippe COUPARD 


Cet article s'adresse à tous les possesseurs d’un PHI 000 de CASIO , que la machine soit de hase ou étendue. Le PB 1000 
de CASIO offre beaucoup de possibilités à son utilisateur des possibilités d’ entré es /sorties intéressantes, un écran 
tactile , 2 langages puissants ... Cependant, une chose lui manque vraiment pour combler son utilisateur : une gamme 
de sons variés. Nous vous proposons ici une routine en assembleur qui comblera ce défaut. 


De quoi s’agit-il ? 

En fait, le FBI 000 peut générer deux sons, que l'on peut entendre en 
tapant les instructions BEEPO (son grave) et BEEP 1 (son aigu). 
Mais deux sons, c'est insuffisant pour égayer un jeu, ou pour 
faire de petites mélodies. Donc, il nous faut générer ces sons nous- 
même. Pour cela, il nous faut programmer une routine en assem- 
bleur qui se chargera d'exciter le buzzer (c.à.d le composant élec- 
tronique qui produit le son à l'intérieur du PB 1000) à la bonne 
cadence. De plus, pour des raisons de simplicité, nous devrons 
passer à cette routine des paramètres sous forme de variables mais 
pas avec des POK.Es car ils prennent du temps en BASIC et ren- 
dent le programme illisible. Enfin, ces paramètres seront en uni- 
tés internationales, c'est-à-dire en Hertz (Hz) pour la fréquence 
du son et en secondes (s) pour la durée du son. Comme ça, tout le 
inonde se comprend. Ces paramètres se nomment «Sl'reqcy» et 
«Slength» ce qui, a défaut d'être original, a le mérite d’être clair. 
Comment ça marche ? 

Le buzzer piézoélectrique ne connail que 2 états : soit sa lame 
de quartz est «en arrière», soit elle est «en avant». En fait, cette 
lame de quartz se comporte un peu comme la membrane du haut- 
parleur interne de tous les PC de bureau, qui est piloté de la même 


L état du buzzer est déterminé par les bits 6 et 7 du registre 
interne PD (Port de Données) du processeur HDC61700 : si ces 
deux bits sont à 1, la lame est en avant, s'ils sont à 0, elle est en 
arrière. 11 suffit donc d'inverser ces deux bits très rapidement pour 
générer un son. 

Comme dans un PC, nous devons donc utiliser la méthode clas- 
sique pour créer un son, à savoir une boucle temporisée selon la 
fréquence désirée. 

L’algorithme correspondant est le suivant: 

/* Début de boucle */ 

/* Inversion de l’état du buzzer */ 

/* temporisation réglable */ 

/* Fin de boucle ; arrêt quand on atteint la durée d’émission 
voulue */ 

Si ce principe marche très bien sur un PC, il n’en est pas de 
même pour notre PB 1000. En effet, le HDC6I700 est cadencé 
«seulement» à 910 kHz, et, pour obtenir un son d’une fréquence 
moyenne ou élevée, la durée de la temporisation devient compa- 
rable à la durée des autres instruction qui composent la boucle. 
Cela signifie que, dans ces fréquences, il suffit d’ajouter ou de 
retrancher la valeur minimale de précision à la temporisation pour 
que le son saute carrément une octave, ou au moins plusieurs 
tons! En pratique, la routine ainsi programmée n’offre donc pas 
un choix de fréquences suffisant pour considérer comme accep- 
table l'écart entre la fréquence demandée cl la fréquence réelle- 
ment émise par le buzzer. Alors, que faire ? 

Détaillons le problème : la temporisation est évidement une 
boucle vide qui effectue un certain nombre d’itérations dans le 
seul but de perdre du temps. On ne va pas s'amuser à temporiser 
en remplissant la mémoire avec des instructions NOPs (No 



OPeration), d'autant que la zone assembleur maximale allouée 
sur PB 1 000 est de 4 Ko, Or, une telle boucle vide comporte quand 
même des instructions, et ces instructions durent chacune un cer- 
tain nombre de cycles machine. L'expérience (et le tableau des 
mnémoniques assembleur) montre que la durée minimale de la 
boucle, donc le «pas» de réglage de la temporisation, est de l’or- 
dre d’une dizaine de cycles par itération. Vu la cadence de l’hor- 
loge, cela engendre une précision faible. 

L’idéal serait de pouvoir disposer d’une temporisation réglable 
avec le «pas» le plus petit possible, soit un seul cycle machine, 
pour compenser le manque de vitesse de l’horloge. Cependant, 
c'est évidement impossible avec une boucle simple. Il faut donc 
ruser ... 

La ruse ! 

Il existe une astuce pour résoudre notre problème. Prenons un 
exemple: supposons qu’on dispose d’une boucle de temporisa- 
tion qui dure 10 cycles par itération et qu'on veuille une tempori- 
ser pendant 24 cycles. On ne peut pas demander à la boucle d'ef- 
fectuer 2.4 itérations. On lui demandera donc d’en faire 2, soit 20 
cycles en tout. A ce stade, il nous reste encore 4 cycles à perdre 
pour atteindre notre objectif. 11 suffit donc de rajouter à la suite 
de la boucle une instruction de saut qui dure 4 cycles et à qui on 
demandera de sauter à l’instruction qui la suit. 

Cette instruction sera donc parfaitement inutile, sauf pour perdre 
4 cycles. Cette instruction s'appelle JP m (ni est l'adresse abso- 

m 

lue de saut). 

Supposons maintenant qu'on veuille temporiser pendant 26 
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cycles : Il suffit de rajouter à la suite du JP f ins- 
truction NOP, déjà présentée plus haut, qui dure 2 cycles : 

20+4+i.-^6 cycles, L adresse de saut de JP sera alors P adresse du 
NOP, puisqu'il le suit immédiatement. 

Si on voulait 28,30 ou 32 cycles, on rajouterait de la même 
manière Je nombre de NOPs correspondant à la suite de JR Si on 
voulait 34 cycles, on enlèverait tous les NOPs et on demanderait 

alors a la boucle de faire 3 itérations, soit 30 cycles : 30+4=34cy- 
cles ... et ainsi de suite. 

Par conséquent, si on écrivait 5 versions différentes de la rou- 
tine de son, chacune comportant une boucle à vide suivie de son 
JP et du nombre de NOP adéquats, et que Ton branchait celle qui 
nous intéresse en fonction du nombre de cycles restant à perdre 
après la boucle a vide, on aurait déjà une routine avec une tempo- 
risation réglable à deux cycles près. 

Pour avoir une temporisation réglable à un cycle près, il suffi- 
rait de remplacer l'instruction de saut absolu JP m (qui dure 4 
cycles) pai 1 instruction JR n (qui dure 3 cycles) en prenant garde 
à remplacer l’adresse de saut absolue m par un offset de saut 
relatif n. On réécrirait alors 5 autre versions différentes de la rou- 
tine de son avec également chacune une boucle à vide, un JR et le 
nombre de NOPs adéquats. 

Au total, ou aurait donc 10 versions de la routine de son, 5 pour 
les temporisations paires et 5 autres pour les temporisations im- 
paires. Grâce a ce système, on aurait une précision de un cycle, et 
c’est ce qu’on recherche. 

Cependant, si ce système à l’avantage de marcher, il consomme 
une quantité de mémoire importante, et tout les possesseurs de 
PB 1 000 n’ont pas la chance d’avoir une extension de 32 Ko. C’est 
là qu’ intervient la technique du code auto-modifié qui va nous 

permettre de rendre à notre programme une taille raisonnable. 

Le code auto-modifîé 

La simple évocation de ce procédé va rappeler des souvenir à 
tous les programmeurs qui ont travaillé sur des micros d’un autre 
âge. Le code auto-modifié est exactement ce qu’il nous faut ici 
car le PB 1000 se rapproche plus du Sinclair ZX8I (paix à son 
âme) que du PC 486. 

Tout d’abord, précisons que cette technique peut s’appliquer à 
n’importe quel langage mais il faut ABSOLUMENT que la ma- 
chine sur laquelle tourne le programme ne possède pas de mé- 
moire cache (ou antémémoire), ce qui bien sûr est le cas du 
PB 1 000. 


Li principe général consiste tout simplement à créer un pro- 
gramme qui modifie ses propres instructions. Dans notre exem- 
ple, au lieu de cicer 10 routines de son, on va en laire une seule, 
comportant une boucle de temporisation, une instruction JP et 4 
NOPs, La routine sera précédée d’un programme qui se chargera 
de déterminer le nombre d’itérations de la boucle et le nombre de 
cycles lestant a perdre. Si ce dernier nombre est impair, on ira 
éc rire le code de JR n a la place de celui de JP ni, puis on détermi- 
nera l’argument de l’instruction de saut pour qu’elle saute au 4è, 
3è, 2è ou Ici NOP et on ira I écrire juste après le code de l'ins- 
truction. Enfin, on démarrera la routine de son. 

Les programmes : 

Dans la routine en assembleur, pour remplacer une division 
entière par deux rotations binaires plus rapides, nous avons choi- 
sis une boucle de temporisation de 16 cycles, d’où le nombre 
élevé de NOPs. Cela ne change en rien le principe. De plus, nous 


avons inclus deux opérations en chaine de caractères qui permet- 
tent au programme de préparation de récupérer les valeurs des 
variables «Streqcy» et «Slength», et de simplifier le calcul du 
nombre d'itérations de la boucle à vide et de la boucle principale. 
Le calcul de ces expressions et le transfert des résultats dans les 
registres internes fait appel à deux routines système, 

Les valeurs suivantes sont à respecter ABSOLUMENT sous 
peine de risquer le plantage : 

74 < Sfreqcy < 6594 (en Hz) 

8. 1 0 A -5 < Slength < 4.9 (en s) 

Ce code a été optimisé pour être le plus rapide possible. Cepen- 
dant, il faut tenir compte du fait que la préparation du son de- 
mande une fraction de seconde qui augmente la durée totale du 
processus. 

La procédure d’assemblage est standard : on tape le source en 
fichier texte et on 1 assemble grâce à l’option idoine. La routine 
entière, une fois assemblée, ne prend que 245 octets qui passent 
inaperçus, même sans extension mémoire. 

Un exemple est donné en BASIC qui montre comment on ex- 
ploite la i ouline. 11 s agit d un petit «synthétiseur» qui permet de 

jouei de la musique dans la gamme de Do majeure diatonique, et 
il est accordé ! 


Programme à assembler sous le nom «SOUND.EXE» : 


ORG &I 17000 ;Adresse de début de la routine : &H7000 

(HEXA) 

START PRE PA ;La routine est lancée au label PREPA 

EXPRVv: EQL &H9989 ;Routine système : calcul d’une expr. 

numérique 

BIN02. EQU &H98CD ;Rouline système : conversion réel -> 

entier 

BUFFR: DS 2 ;Buffer (EXPRW et B1N0 modifient les 

registres internes. On stocke donc des 
variables en RAM avant) 

LOOP. LD S2,$ I ;Debut de la boucle de création du son 

PST PD,$3 basculement du buzzer flip-flop (bits 

6 et 7 du registre PD) 

WAf 1 . SB S2, 1 ;Debut de la boucle de temporisation 

grossière (Cette instruction pourra etre 
remplacée par une instruction de saut 
si cette temporisation est inutile) : 

NOP ;Cette boucle permet de faire une 

première 

demporisation réglable par paquets de 

16 

N0P xycles selon la valeur de $2. Elle est 

sautée 

N0P ;par remplacement d'une instruction si 

$ 2=0 

JP NZ.WA1T 

JP 0 ;(JP est une instruction à 4 cycles. Elle 

restera JP ou deviendra JR (instruction 
à 3 cycles) selon que le nombre de 
cycle à attendre et pair ou impair. 

«0» sera remplace plus loin dans la rou 
Line par l’adresse adéquate pour sauter 
des NOPs (sif instruction reste JP) ou 
par un déplacementrelatif (si l’instruc- 
tion devient JR)).; 




f'niu iras i-tcdo 




NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

XR $3,192 
SBW $15,$ 10 
JR NZXOOP 
PST PD,$4 



;La temporisation précédente est 
complétée par 

;une seconde temporisation réglable à 1 
cycle 

;pres ( 1 NOP = 2 cycles, et selon T ins- 
truction 

;de saut JP ou JR), de 0 à 14 cycles. 

;Au final, les deux temporisations per- 
mettent 

;d’ obtenir une grande temporisation 
réglable au 

;cycle près (précision ! ) 

;In version des bits 6 et 7 du PD 

;Fin de la boucle de création du son 
;On remet PD comme on l’a trouvé 
(c’est plus propre) 

;On rend la main au programme appelant 


OP1: DB «2*Slength*Sfreqcy»,0 ;Cette opération sera utilisée 

pour ; calculer le nombre de boucles 

LOOP ... 


OP2: DB «455000/3/Sfreqcy»,0 ;... et celle-ci pour calculer le 

nombre de cycles de temporisation. 
PREPA: PRE IX,&H7038 ;Début: on charge l'adresse de ÜP2 


CAL EXPRW 
CAL B1N02 
LD W $ 1 0,20 
SBW $15,$ 10 


DIUW $15 
D1D S 1 5 

LDW $ 1 0,&H7000 
STW $15, ($10) 
PRE IX,&H7026 
CAL EXPRW 
CAL BIN02 
LDW $ 1 0,&H7000 
LDW $0,($ 1 0) 

SBC $0,3 
JR NC,CONT 1 
CONT1 


dans IX 

;Calcul de OP2 : retourne un réel 
;Conversion en entier 

;On retranche le nbr. de cvcles dus aux 

■■ 

instructions autour de la boucle WAIT 
; multiplication par 16 sur un mol 
;On divise par 1 6 sur un octet 

;On sauve le mot dans BUFFR 
;On charge l’adresse de OP1 dans IX 
;Calcul de OP1 : retourne un réel, 

;con version en entier 

;On recharge le mot dans BUFFR 

;Si nbr. de cycles à sauter est >3, on va à 


SB S 1,1 ;sinon on ôte 1 au nbr. de boucles à 16 

cycles 

AD $0,16 ;et on ajoute 16 au nbr. de cycles dans la 

boucle 

WAIT 

CONT1 : GST PD, $4 ;On stocke la valeur originale de PD dans 

$4 

LD $3,$4 

OR $3,192 

SB $3,64 ;et on calcule dans $3 le PD utilise en 

Bip-flop 

LDW $6,&H7007 

SBC SI ,0 ;Si le nbr. de boucles à 1 6 cycles est nul. 


JR Z.CONT2 
LDW $8,10 
ADW $6. $8 


CONT2: LD $8,$0 

OR $8, 1 
SBC $8,$0 

JR Z, PIM P 

PPA1R: SB $0,4 
LDW $8,$6 
CAL CALC 
LD $ 1 2.&H37 
ST S 12, ($6) 

ADW S6.S 1 0 

7 

STW $8, ($6) 

JP LOOP 

PIM P: SB $0,3 
LDW $8,0 
CAL CALC 
LD $12,&HB7 
ST $ 1 2, ($6) 

ADW $6,$10 
SB $8,1 
ST $8, ($6) 

JP LOOP 

CALC: BID $0 

LDW $ 1 0, 1 0 

SBC $1,0 


JR NZ,CONT3 


ADW $8,$ 10 
CONT3: SB $10,$0 
ADW $8,S10 
LDW $ 1 o. 1 
RT N 


;on va à CONT2 directement, 


;sinon, on déplace l’adresse du JP à 
changer dans la boucle de 1 0 octets 
;On détermine si le nombre de cycles 
dans la 

;boucle WAIT est pair ou impair 

;S'il est impair, on va à P1MP, sinon à 
PPA1R 


:On calcule l'offset de l'adresse du JP 
;On charge le code de l’instruction JP, 
;on écrit l’instruction dans la boucle, 
;on ajoute l’offset à l'adresse du JP, 

;et on écrit l'adresse de saut juste apres 
JP 

;On saule à la boucle de création du 
son 

;On calcule l'offset de l’adresse du JR 
;On charge le code de l'instruction JR 
;on écrit l’instruction dans la boucle 
;on ajoute l'offset à l'adresse du JR 

;ct on écrit le relatif de saut juste apres 
JR 

;On saute à la boucle de création du 
son 

;CALC s'occupe de calculer l’offset 
pour 

d'adresse de l'instruction qui viendra 
sauter 

des NOPs (ou toute la boucle à 16 
cycles, si 

de nombre total de cycles est < 16) dans 
LOOP 


Programme de «synthétiseur» en BASIC utilisant 
«SOUND. EXE» 


1 0C LE A R : CLS : D I M N ( 7 ) : FOR N-Q T07:READN(N):NEXT: 
PRINT REV:»SYNTHETISEUR EN DO MAJEUR» ;NORM: 
PRINT»Uti lisez les touches ‘F à ’9' pour entendre les notes de 
‘Do’ a "Do’ ...»;:Slength=.3 
20 N=ASC(INKEY$)-49:1FN<0 ORN>7 T H EN 20 
30 Sfreqcy=N(N):CALL»SOUND.EXE»:GOTO20 
1 00 DATA262, 294,330, 350,393, 440, 495, 524 


POCHE COMPUTFRS N°9 


a 

<L 



TRUCS ET ASTUCES... 


Vous êtes des milliers à apprécier cette rubrique ; son but étant de tirer toujours plus de sa 

machine. Continuez, à nous écrire et à nous envoyer vos trucs et astuces pour le plus grand 
bien de tous . 


Faire défiler les caractères sur F écran de votre 
Sharp PC 1403. (par Loïc FIEUX ) 

L écran de votre ordinateur Sharp PC 1403 est capable d’af- 
ficher 24 caractères. Comment faire si nous souhaitons affi- 
cher un texte comportant plus de 24 caractères ? Le pctil 
programme qui suit apporte une réponse en proposant de 
faire défiler le texte. Ce programme est écrit en Basic, il va 
de soi qu il est destiné a nôtre qu’un sou s -programme d’une 
application plus lourde. Pour cette raison, les numéros des 
lignes sont remplacés par #, #+l , #+2 et #+3. 


Listing : 

# : »S» CLEAR : DIM T$(0)*50: ÎNPUT «Votre texte 
«;T$(0): IF LEN T$(Q)<25 PRINT T$(0): END 
#+ 1 : WAIT 30: PRINT LEFT$ (T$(0),24): CALE 1208 
#+2:FOR J=2 TO LEN T$(0)-24: PRINT MID$ 
(T$(0),J,24): CALL 1208: NEXT J: WAIT 
#+3:PRlNT MI DS (T$(0),J,24): END 

Exemple d’utilisation : placez une chaîne dans la variable 
T$(0) et brancher l’exécution sur la ligne #+L 


N. B. : Les habitués des clubs d’utilisateurs de Sharp PC 
auront peut-être reconnu 1 une des multiples versions de cet 
indispensable utilitaire de scrollina. 


1m face cachée des variables... (par Loïc FIEUX) 


Les variables (mémoires numériques) des calculatrices Casi 
graphiques sont au nombre de 26 (4 dans le cas de la f 


3 900 P, 28 mémoires pour les fx 7700/7800 et 8700/8800) 
Vous pouvez bien entendu copier dans ces variables des nom- 


bres de votre choix. Il vous faut néanmoins savoir que la 
machine se charge de placer certains résultats dans certaines 
variables à l’occasion de calculs. Ainsi, les variables I et J 


conservent le dernier résultat de conversion de coordonnées. 
Selon le cas, 1 contient x ou r et J contient y ou teta. X et Y 
contiennent les coordonnées du pointeur validées par une 
pression sur [EXE] (en utilisant Plot ou Trace). P, Q, R. U, 
V et W contiennent des résultats de calculs statistiques. En 
mode SD (ou SD1), W contient n, V contient la somme des 
x et U contient la somme des carrés de x. En mode LR (LR 1 ), 
U, V et W ont les mêmes fonctions qu’en mode SD, par 
ailleurs, R contient les sommes des produits xy, Q contient 
la somme des y et P contient la somme des carrés de y. 



N’oublions quelques mémoires spéciales. Ans mémorise le 
dernier résultat numérique obtenu. Ibr contient la dernière 
expression validée (fx 8000G et 8500G). Des nombres sont 
en mémoire en permanence, il s’agit de 10 [10 A x], de c 
[SHIFT] [In] (e=2,7I828...), de % (<|[=3, 14159...) etc. 


Déchiffrez le numéro de série de votre matériel 
Hewlett-Packard (par Loïc FIEUX) 


Sur tous les appareils Hewlett-Packard, vous trouverez un 
numéro de série de la forme AASSFNNNNN. Ajoutez 1960 
à AA, vous trouverez l’année de construction. SS est un nom- 
bre entre 01 et 52, il correspond à la semaine de fabrication 
dans l’année de fabrication. F correspond au centre de pro- 
duction (A : Etats-unis, S : Singapour). NNNNN est le nnnnn- 
ième machine construite pendant la semaine considérée. 
Ainsi, mon HP-48GX porte le numéro 3333S 16671, elle est 

1 667 1 èmc machine produite à Singapour pendant la semaine 
du 16 au 22 août 1993. 
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Quelques astuces graphiques pour votre Casio fx 
(par Loïc FIEUX ) 

astuces qui suivent sont destinées aux utilisateurs des 
calculatrices graphiques Casio fx. Certaines de ces astuces 
sont relatives aux manipulations du repère de l’écran dans 
lequel sont tracées les représentations graphiques de fonc- 
tions et autres motifs programmés par T utilisateur. En mode 
direct, la touche [RANGE] permet la modification des para- 
mètres de l’écran. Dans un programme, l’instruction Range 
permet de spécifier les paramètres de l'écran. Les paramè- 
tres Xmin, Xmax, Xsc!,Ymin, Ymax et Ysci dont il est ques- 
tion ci-après, sont les paramètres de la fonction Range. 
N oubliez pas que la syntaxe de celle-ci, dans un programme 


celle-ci empêchant l'exécution de la fonction qui la suit quand 
la variable qu’elle décrémente devient nulle. 

- Un repère orthonormé pour ma fx graphique 
1 1 existe trois types d’écrans différents montés sur les fx gra- 
phiques. Le plus courant est l’écran 6 ! 44 pixels (96x64) dont 
5985 (95x63) sont utilisables, cet écran est monté sur la fx 
7000/7200, 7500, 7700/7800, 8000, 8500 et 8700/8800. Les 
fx 6000 et 6500 (diffusées entre 1986 et 1988) disposaient 
d’un écran de 3072 pixels (96x32) dont 2945 (95x31) utili- 
sables. Le bébé fx. la fx 6300/6800, a un tout petit écran de 
960 pixels (40x24) dont 897 (39x23) utilisables. Ces infor- 
mations techniques vont nous permettre de définir des repè- 
res orthonormés. 


est Range Xmin, Xmax, Xscl, Ymin, Ymax, Yscl. 

- Supprimer les graduations sur les axes 

Vous pouvez masquer les graduations des axes du repère 
orthogonal sur lequel sont tracées mes courbes. Pour cela, il 
vous suffit, à l’aide de la commande Range, de spécifier 
Xscl-0 (pour masquer les graduations de l’axe des abscis- 
ses) et/ou Y scl=0 (pour masquer les graduations de l’axe des 
ordonnées). 

- Ne pas faire apparaître les axes du repère 

Les axes du repères peuvent ne pas être visibles. Pour mas- 
quer l’axe des abscisses, il faut que Xmin>0 et Xmax>0, ou 
bien, XmincO et Xmaxcü. Pour masquer l’axe des ordon- 
nées, il faut que Ymin>() et Ymax>0, ou bien, Ymin<0 et 
YmaxcO. 

- Exploiter la position du pointeur 

Le pointeur est l’index clignotant (une croix ou un point se- 
lon le type de votre calculatrice) que vous déplacez sur l’écran 
graphique à l’aide des flèches de déplacement. Vous laites 
apparaître le pointeur en utilisant Trace en mode direct. Dans 
un programme, vous avez intérêt à utiliser Plot Disp (où Disp 
est le triangle de Display obtenu, selon le cas, par ISHIFTJ 
[RANGE! [F3] ou [ALPHA] [GRAPHJ ou [SHIFTJ [:]). 


Ainsi, vous déplacez le pointeur et ses coordonnées (sa po- 
sition) à l’instant où vous avez appuyé sur [EXE] sont enre- 


Dans le cas d'un écran 95x63, il faut que : 
(Xmax-Xmin)=(95/63)(Ymax~Ymin) 
ou (Y max-Y min)=( 63/95 )(Xmax-Xmin) 

Dans le cas d'un écran 95x31, il faut que : 
(Xmax-Xmin)=(95/3 3 )( Ymax- Ymin) 
ou (Y max-Y min)=( 3 1 /95)(X max-Xm i n ) 

Dans le cas d'un écran 39x23, il faut que : 

( X m ax- Xmi n ) =(3 9/23 ) (Ymax- Y mi n ) 
ou (Ymax-Y min)=(23/39)(Xmax-Xmin) 

Notez que : 

95/63 = env. 1 ,5. 

95/31 = env. 3. 

39/23 = env. 1 ,7. 

- Centrer l’origine du repère 

Pour centrer l'origine du repère, il faut, d’une part, que les 
valeurs absolues de Ymin et Ymax soient égales, d’autre part, 
que les valeurs absolues de Xmin et de Xmax soient égales. 

- Erreur «Ma Error» avec Graph Y= 

L’instruction Graph Y= déclenche une «Ma Error» si les 
paramètres de 1 instruction Range sont incorrects, en parti- 
culier, si : Xmin = Xmax et/ou si Ymin=Ymax. 


gistrées dans les mémoires X et Y. Les contenus des varia- 
bles X et Y sont exploitables, ils correspondent à une posi- 
tion sur l’écran graphique. Cela ne vous donne pas des idées 
de programmes graphiques ? 

- Eviter le scintillement de P écran lors des tracés 


Comme vous le savez, les Casio fx graphiques utilisent un 
écran disposant de deux modes, le mode graphique et le mode 


texte. Sur les fx de la série 7000/8000, l’écran graphique 
laisse apparaître le contenu de l’écran texte lors d’un tracé 


faisant intervenir de nombreuses instructions PLOT (le plus 
souvent incluses dans des boucles (label Lbl et commande 


saut Goto). Le «clignotement» ne peut être supprimé, l’as- 
tuce consiste à nettoyer 1 ’ écran texte en affichant huit lignes 
vides avec un petit sous-programme dans le style de celui-ci 
: 8->I:Lbl n:»_»:Dsz l:Goto n Où n est à remplacer par un 

nombre de 0 à 9. Remarquez que l’on exploite ici un 

«effet secondaire» de la fonction de décrémentation Dsz, 



* Plus de 10.000 écrans d'informations sur 
votre pocket ou votre calculatrice ! 

* Echangez vos trucs et astuces à travers 
30 forums thématiques ! 

• Des milliers de programmes ! 

• Trucs et astuces, Scoops, Infos, 

* Messagerie, Petites annonces, 

• Micro-informatique, etc. 


Le minitel de votre ordinateur de poche 
et de votre calculatrice graphique ! 


CALCULATOR 
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Démo graphique pour Casio FX 1H0F (par Damien 

MARMISSOLLE) 


«CARL LEWIS» by DAM 


10 

20 


22 


24 


26 


CLS : VAC : DIMA$ (H) 

RESTORE 1000 : READ AS : LOCATE 1,0 : 
PRINT « « ; CHR$ (252) DEFCHRS (252) = A$ 
READ A$ : LOCATE I, 1 : PRINT « « * 
CHR$(253);: 

DEFCHRS (253) = AS 

READ AS : LOCATE ï+2,0 : PRINT CHR$ (254)- 
DEFCHRS (254) = A$ 

READ AS : LOCATE 1+2,1 : PRINT CHR$ (255)" 
DEFCHRS (255) = A$ 

RESTORE 1010 

FOR K = I TO 4 : READ AS : DEFCHR$(25 1 +K) 
= AS : N EXT 

1=1+1 : IF K30 THEN 20 EL SE 10 

1000 DA I A 00040FEDE , O4OA1OE0CO , 0404000000 
IE02000000 

1010 DATA 0000000608 , 0000003020 , FEDE081000 
FEE2Q00000 


35 

50 


60 


Du TTLen RS232C sur F X-850P et FX-8S0P... 


Les mouvements d’informations à l’intérieur de nos 850 
et 880 lavorites, se font en mode parallèle. C’est-à-dire que le 
microprocesseur équipant ces dernières échange des informations 
avec sa mémoire grâce à 8 lignes parallèles appelé bus. Ce moyen 
de transport de l’information pourra aussi être utilisé pour trans- 
mettie les données nécessaires a une imprimante, reliée par vos 
soins à votre ordinateur de poche par l'intermédiaire de la FA 6 
{du moins pour l’instant...). Votre 800 (FX-850P ou FX-880P) 
étant prévue pour communiquer par l’intermédiaire d’un éven- 
tuel modem (le Minitel, par exemple), mais les échanges en pa- 
mllèlc devenant impossibles sur de longues distances, les ingé- 
nieurs de CASIO ont eu la bonne idée d’équiper les 800 de la 
norme RS232C (enfin presque...). D’ailleurs, tout le monde vous 
le dira : Pour échanger des informations, le réseau Télécom reste 
L canal le plus pratique. Mais il ne peut laisser passer qu’un état 
à la fois parmi les deux possibles (I ou 0). Par contre, en infor- 
matique, l’octct destiné à transmettre peut revêtir 256 valeurs dif- 
ferentes. Il devra donc subir une transformation et ses éléments 
binaires vont être placés chronologiquement, à la queue leu leu 
sur une même ligne. Cette modification s’appelle la sérialisation 
d’où le nom de transferts «en série». Par définition, les unités 
binaires sont des portes et donc, chacune d’entre elles sera à l’état 
1 ou a 1 état 0 et activée sur la ligne de sortie de l’interface par la 
présence ou I absence d impulsions électriques. 

Deux modes de transmission sont possibles : le mode 
asynchrone et Je mode synchrone. Nous nous limiterons au mode 
asynchrone, adopté par notre cher 800. Sous ce mode, l’envoi des 
données s effectue sous forme d’un flot de bits. Un caractère est 
: epi l sente pai / ou 8 bits selon le choix de la procédure 11 est 
précédé d'un bit de START (départ, pour ceux qui ne connaissent 
pas l’anglais...) et terminé par un bit de parité et/ou un ou deux 


bits de S TOP. La détection d'erreur s’effectuera donc par le con- 
trôle de paiité (un octet est dit pair lorsque le nombre de bits à 
! état I est pair, le bit de parité sera donc ajouté à un octet dans le 
seul but de le rendre pair : un octet =10101110 = 5 bits à l’état 1 
donc le bit de parité sera I car 5+1 =6 (nombre pair), si l’octet = 
1 00 1 1010 = 4 bits à H état I donc le bit de parité sera 0 car 4+0=4 
(nombre pair). Compris.), Je reprends ma phrase, donc, la détec- 
tion d’erreur s'effectuera par le contrôle de parité, moyen cepen- 
dant peu fiable : Le meilleur, mais qui prend du temps, est le 
renvoi systématique du caractère envoyé pour contrôle. 

La liaison cntie une 800 équipée d une FA6 et un autre 
ordinateur se révèle relativement simple, si l’on utilise un raccor- 
dement simplifié. La solution la plus simple est de n’utiliser que 
les liaisons! XD ( Transmit Data, transmission des données), RXD 
( Reçoive Data. Réception des données) et la masse, en prenant 
soin de croiser les fils, c’est à dire : TXD et RXD d’un appareil 
relies respectivement à RXD et TXD de l’autre. Les broches con- 
cernées sont vues page 73 du manuel de F utilisateur de la 800 ( la 
masse est traduite par GND). 

I oui ceux qui ne possèdent pas de FA6, nous vous propo- 
sons un schéma théorique qui permettra aux personnes ayant quel- 
ques bases en électronique de réaliser une interface RS232C pour 
leur 800. Pour les autres, il faudra attendre le schéma pratique du 
prochain numéro... Les broches de la 800 sont les suivantes : RXD 
(5 en haut). TXD (7 en bas) et GND (15 en bas). Cette interface 
est basé sur 1 utilisation d’un MAX232, qui aura pour conséquence 
de transformer les signaux TTL (0V et 5V) de la CASIO en 
RS232C M2V/+I2V) de votre AM IGA/ST/PC. Cette interface 
peut donc être utilisée sur tous les pockets fonctionnant en TTL. 

Lti commande pour sauvegarder un programme par P in- 
termédiaire de la RS 232C est : SAVE»COM0: (+ configuration). 

S AVE#» CO MO: (+ configuration) pour le MEMO, LOAD et 
J -OAD# pour charger (il faut bien sûr un programme de transfert 
sur 1 autie ordinateur, mais tous les softs de communication font 
1 affaire. Terminal sous Windows par exemple). Pour la partie 
configuration du port RS232C, le manuel de l’utilisateur est très 

bien fait, alors reportez-vous à la page 87 et 88. Bonne communi- 
cation et A+. 
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Cet excellent article nous vient du club CASIO News dont l’adresse 
est la suivante : 
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CASIO News : Anthony TARDIVEL 
La Gravelle - 35410 NOUVOITOU 
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TRUCS ET ASTUCES... TRUCS ET ASTUCES... TRUCS ET ASTUCES... TRUCS 



MISE EN FRACTION 
SUR Tl GALAXI 67 ET HP11C 

par Abdelkédir MARZOUKI. 

Ce programme est valable pour les calculatrices qui n’ont pas de fonctions direc- 
tes de la mise en fraction. 

Par exemple: 

- on affiche 12,5 b 

- appuyer sur enter ou — . donne 1 2,56 

- appuyer sur A b/c donne 12-1 4/25 

ou 12 14/25. 

- appuyer sur 2Nd ou INV A b/c donne 

3 1 4/25. 

EXEMPLE SLR TI GALAXY 67. 

input C : Lbl 0 : B+ 1 -> B : CxB-> A : fp(À)->D : if D=0 : goto S : goto 0 : Lbl I : 
disp A disp B :-> = S'1 0 
fp = partie décimale 
il P=0 = dans le menu Test 

Il faut mettre B comme compteur de nombre de zéro jusqu'à N nombres, et le 
programme test, si le nombre A qui est te numérateur qu’on cherche, doit être un 
nombre entier. Le programme s'arrête et affiche: 

A numérateur 
B dénominateur. 

Input C Facultatif. Supprimer input C. F.crire le prg. à partir de Lbl 0 jusqu'à disp 
B. Appuyer sur ENTER .affiche 
B - ? 

Mettre 0 B = 0 
Enter 

Re view Y N ? 

Appuyer NO 
C - ? 

Mettre C = 12.56 
Enter 

Review YN ? 

Appuyer NO 
Affichage A = 314 
Appuyer sur Enter 
B = 25 

Pour un autre ex. appuyer sur EVAL 


EXEMPLE SUR HPI1C. 


C STO 2 
B SIX) 0 
A STO 1 
1 Lbl 0 42210 


2 Rcl 0 

3 I 

4 + 

5 STO 0 

6 Rcl 2 


45 0 
I 

40 

44 0 

45 2 -> le nombre C 


B = mémoire 0 Compteur de 0 à N. 
Au départ mettre la mémoire 0 à 0. 


A = CxB = 12.56x1 = 12.56 
B = 1+1 = 2 
A = 1 2,56x2 = 25, 1 2 
B = 24+ 1 = 25 
A = 1 2.56x 25 = 314 


On rencontre le premier nombre entier de A qui est le numérateur, 
qui s’arrête à 25. donne le dénominateur. 

Donc la fraction est: 314 

75 


Le nombre B 


GRANDES FACTORIELLES SUR Tl 66 

par Daniel PRATLONG 

Ne jetez pas vos vieilles 1166 ! Elles peu vent encore servir, en 


TP par exemple. . . 


Imaginez qu' 

une fiole se rein 

'erse... hihï 

hihihi ! La 1 166 

ne craint rien, mais il lui 

manque une ! 

fonction : la fonction factorielle. 



C'est pou ri tint 

une fonction asse 

z utile en maths (en probabiSi 

tés). 


Hile est définie par la formule suivante : n! — 

\ x 2 x 3 x .. x n 



Ex : 5 ! = 1 x2 

x 3x4x5 = 120 





Fin général. les 

i calculatrices s'arrêtent à 69! 

(= 1.71 12... E 98) 

+ 


Si vous demandez le calcul d 

e 70! vous 

aurez droit, à un 

joli message 

d’erreur. Le 

programme suivant permet d 

e calculer de très grandes factorielles. 


Hx : 500 ! = 

1.2201... E 1 13‘ 

4 




Il utilise la formule de Stirling dont vous trouverez la démonstration dans tous les 

bons livres d 

e maths. 





Mode d'emploi: 





Après avoir tapé votre nombre enfoncez 

:. sauvagement la touche R ST puis R/S. Le 

programme r 

iffiehe n! en une 

seule fois 

si n<20 ou bien ( 

:n deux fois. 

Dans ce cas. 

la mantisse s 

'affiche d'abord 

„ tapez R/S 

et P exposant sa 

ïfriehe. J’ai s 

nis un «LBL 

E» en début de programme 

pour que 1 

vous puissiez le 

lancer (par 

la touche E) 

même s’il ne 

commence pas 

en 00 (si vous avez une chi 

J’ai mis un 

«LRI . E» en 

début de programme pour que vous pui 

ssiez le lancer (p 

iar la touche 

E) même s'il 

ne commence pas en 00 (si \ 

uns avez une fonction ava 

ni). 


ST 






000 LBL 

020 00 

040 1 .N x 

060 06 

080 ( 

1 00 / 

001 E 

021 B' 

041 LOG 

061 1 

081 1 

101 RCL 

002 STO 

022 LBL 

042 ) 

062 0 

082/ 

1 02 00 

003 00 

023 A' 

043 + 

063 y A x 

083 2 

1 03 = 

004 2 

024 1 

044 ( 

064 ( 

084 8 

1 04 STO 

005 0 

025 = 

045 2 

065 RCL 

085 8 

1 05 07 

006 xxt 

026 R/S 

046 x 

066 02 

086 - 

1 06 RCL 

007 RCL 

027 R ST 

047 Pi 

067 - 

087 1 

107 04 

008 00 

028 LBL 

048 x 

068 RC!. 

088 / 

108 + 

009 x>=t 

029 C’ 

049 RCL 

069 06 

089 3 

109 RCL 

0 1 0 C 

030 RCL 

050 00 

070 ) 

090 7 

no 04 

01 1 CP 

031 00 

051 ) 

071 = 

091 3 

i 1 ! x 

012 x=t 

032 x 

052 LOG 

072 STO 

092 / 

! 1 2 RCL 

0 1 3 A’ 

033 ( 

053 ! 

073 04 

093 RCL 

1 1 3 07 

014 LBL 

034 RCL 

054 2 

074 ( 

094 (K) 

114 = 

015 B' 

035 00 

055 = 

075 1 

095 ) 

1 1 5 R/S 

016 RCL 

036 I ,OG 

056 STO 

076 / 

096 / 

1 1 6 RCL 

0 1 7 00 

037 - 

057 02 

077 1 

097 RCL 

1 17 06 

018 x 

038 1 

058 INT 

078 2 

098 00 

1 S 8 R/S 

0 1 9 DSZ 

039 INV 

059 STO 

079 + 

099 ) 

1 1 9 RST 


7 Rcl 0 45 0 -> le nombre B 


8 X 

9 STO I 

1 0 R cl 1 

1 1 Frac 

1 2 x=0 


20 

44 I -> le nombre A = CxD 

45 I 

42 44 la partie décimale de A, si elle est égale 

43 40 si = à zéro, donne: A =Nombre entier 


! 3 goto 1 22 1 

14 goto 0 22 0 

15 Lbl 1 42 21 1 


16 Rcl 1 45 1 

1 7 R/S 3 1 

1 8 Rcl 0 45 0 

! 9 R/S 3 1 


Rcl 1 Numérateur 


Rcl 0 Dénomi nateur 


Exemple de mise en fraction : 
12.56 -> C 
B = 0+ 1 = 1 



Votre pocket et votre calculatrice ont trouvé leur maître I 


• Plus de 10.000 écrans d’informations sur 
votre pocket ou votre calculatrice ! 

• Echangez vos trucs et astuces à travers 
30 forums thématiques ! 

• Des milliers de programmes ! 

• Trucs et astuces, Scoops, Infos, 

• Messagerie, Petites annonces, 

• Micro-informatique, etc. 


Le minitel de votre ordinateur de poche 
et de votre calculatrice graphique ! 


CALCULATOR 
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OQ O 

O 



onruc r'/rit/iDi itcdc ki°o 





Programmes sur TI-85 

par Noël BONNET 


Calcul de médiane : 

Si T effectif est impair , U faut faire +1 , ce qui permet d'obtenir le rang médian , Ce rang doit être replacé dans les Effectifs 
Cumules Croissants (ECC). Il faut donner la valeur de l'ECC d'avant et celui d'après. Il faut donner la classe corres- 
pondante à l'ECC d'après (début et fin de classe , pas centre de classe). Les résultats /correspondance que vous obtien- 
drez devront être écris tel quel sur la copie. Le "delta x" est l'évolution de "x". Le "x", c'est le "delta x" plus le début 
de classe. Tous tes calculs apparaissent à l écran, les résultats sont donnés deux fois, une en décimal et une en fraction . 


PROGRAM : MEDIANE 

: CICLD 

: Disp "Effectif (impaire +1)" 

: Input E 
: E / 2 -» R 
: Disp "rang" 

: Disp "eff/2", R 
: Pause 

: Disp "dans ECC le rang est" 

: Input " compris entre", D 
: Input " et", F 

: F - D -» J 

: Input "classe correspondante ", B 
: Input ” ", C 
: C - B — > I 
: R - D — > M 
: CI LCD 

: Output ( 1 , î 'écart ECC => écart classe 
: Output (2, 1,F 
: Output (2, 5, 

: Output (2, 6, D 
: Output (2, 10, "=>" 

: Output (2, i 2, C 


: Output (2, 16, 

: Output (2, 1 7, B 
: Output (3, 5, J 
: Output (3, 10, "=>" 

: Output (3, 1 5, I 
: Pause 

: Output (5, 1, "écart : rang - deb => AX " 
: Output (6, l , R 
: Output (6, 6, 

: Output (6, 7, D 
: Output (6, 1 5, "=> AX" 

: Output (7, 7, M 
: Output (7, 15, "=>A X" 

: Pause 
: CILCD 
: M * I / J Z 
: Disp " eeart classe" 

: Disp " * (rang - deb ECC)" 

: Disp "AX= 

: Disp " écart ECC" 

: Disp "AX=", Z, Z® S Frac 
: Pause 
; Z + B -» U 

: Disp "X = AX+ deb class", LJ, U®sFrac 



Représe nt ation d’u n dia gramm e circula i re _i 

Il faut rentrer l'effectif total, puis chaque effectif. U n 'y a pas d'unité spécifique. On peut donc se servir de % de degrés 
ou de tout autre chose. A fin de pouvoir dessiner le diagramme en même temps que le programme, à chaque entrée 
d'effectif te diagramme se trace et vous aurez à l'écran la correspondance en degrés pour l'effectif rentré, les degrés 
cumulés de tous les effectifs (quand on arrive à 360°, c'est la fin) et le cumul des effectifs (quand on arrive à l'effectif 
total , c'est la fin). Si le cumul des effectifs est supérieur ci l'effectif total, ily a une erreur et il faut donc tout recommencer. 


PROGRAM : CIRCLE 

Cldrw 

Degrec 

Func* 

-17 — > xMin 
17 — > xMax 
1 — » xScl 
-1 1 — > yMin 
9 —> yMax 
1 — » yscl 

Input "eff. total", T 
0 — > F 


Circl((), 0, 8 
Lbl A 

Input "Eff.classe", E 
F + E F 
F * 360 /T -> D 
E * 360 fi C 
Disp "degres classe", C 
Disp "degres totaux", D 
Disp "eff cumule", F 
8cos D — » X 
8sin D -> Y 
Line(0, 0, X, Y 


: If D <360 
: Then 
: Goto A 
: End 

: If D > 360 
: Then 

: Disp "erreur" 
: End 

: If D = =360 
: Disp "Ok" 

: Pause 

* 

: Disp G 


4* 
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CO«PUTE fîS 



PROGRAMMEZ VOTRE TI 85 ... PROGRAMMEZ VOTRE TI 85 ... PROGRAMMEZ 

Egimllüii d’une droi te à partir de deux points : 

Ce programme donne V équation d'une droite de la forme "y = ax + b", à partir de deux points. Les 
résultats sont donnés deux fois, une en décimal , l'autre en fraction et le détails des calculs apparaît à 


l'écran . 


PROGRAM : Droi2P 

: Disp "2° Point" 

: Disp "A - (y 1 - y2) / (xl - x2)" , A, 

: Disp "B - y- Ax", B, BsFrac 

: Disp "1° Point" 

: lnput "X", V 

AsFrac 

: Pause 

: lnput "X", X 

: lnput "Y", R 

: Pause 

: Disp "FIN" 

: lnput "Y", Y 

: (Y - R) / (X - V) -> A 

: Y - A * X B 


Droite de MAYER : 


Ce programme permet de trouver les deux points par lesquelles la droitede MAYER passe. On rentre l'effectif (atten- 
tion, si il est impair, il faut faire +1 et prendre deux fois la valeur qui est la moitié de V effectif). Le "F" correspond à la 
séparation de l'effectif en deux. Il faut prendre les "F" premiers "X" et "Y" pour le premier point et les "F" derniers 
"X" et "Y" pour le de deuxième point. On peut écrire des additions pour rentrer les ensembles de points ' X " et "Y", 
un cumul est donne juste après. Le détail des calculs apparaît et les résultats apparaissent en décimal et en fraction. 
Pour trouver l'équation il faut lancer le programme "DROIP2" et prendre les valeurs trouvées dans ce programme. 


PRGGRAM : MAYER 
lnput "effectif paire", E 
E/2 F 
Disp "F = I / 2 ef F 
Pause 

Disp "1° Point M" 
lnput "ensemble x", W 
Disp W 
Pause 

lnput "ensemble y", Z 
Disp Z 


Pause 
W / F U 
Z/ F -^V 

Disp "1° point M", "X=ens x / f 
U,U®sFrac, " Y=ens y / f, V, 
V®sFrac 
Pause 

Disp "2° point P" 
lnput "ensemble x", R 
Disp R 
Pause 


lnput "ensemble y", S 
Disp S 
Pause 
R/F -> P 
S / F -» Q 

Disp "2° point P", "X = ens x / F", 
P, P®sFrac, "Y = ens y / F", Q, 
Q®sFrac 
: Pause 
: Disp "FIN" 



Résolution d f équation du 2° degr é : 

Il faut donner les videurs de A, B et C pour le calcul du discriminant Les solutions sont donnés en décitnal et fraction. 
Si le discriminant n 'est pus un carré parfait, U faut reprendre les calculs qui apparaissent à l'écran pour cette raison. 


: Disp "xl = ( - b- 
VD)/2a", R, 
RsFrac 
Pause 

( - B + f D) -> L 
L / E -> S 
Disp "x2 = ( - b 
+ VD) / 2a", S, 
SsFrac 

Pause 
Lbl FIN 
Disp "Fin" 

Disp "{sol}" 

Résolution cTun système d "équations à deux inconnues : 

Il faut entrer les valeurs des variables de la première équation puis de la deuxième. La méthode du discriminant est utilisée. 

Les détails des calculs sont donnés à l'écran et les résultats sont donnés en décimal et sous forme de fraction 

E / D -» Y 

Disp Y, Y®sFrac 
Pause 

Disp "y = Ày / A " 

F/D Z 
Disp Z, Z® S Frac 
Pause 

Disp "S = (x, y)" 
Disp "Fini" 


PROGRAM: DEG2 

Goto PASOL 

: Disp "AX 2 + BX + C = 0" 

End 

: lnput "A", A 

I f d = = 0 

: lnput "B", B 

Then 

: lnput "C", C 

Goto SOL 

: Disp "Discriminant" 

End 

: Disp "A = b 2 - 4 ac" 

If D > 0 

:B 2 -4*A*C — » D 

Then Sol2 

: Disp D 

End 

: Pause 

Lbl PASOL 

: If D < 0 

Disp "A <0", "Pas de sol" 

: Then 

Pause 


Goto FIN 
Lbl SOL 

Disp "A = 0" ,"1 sol double" 

- B / (2 * A) — » T 

Disp "XI = X2 = -b/2a", T, TsFrac 

Pause 

Goto FIN 

Lbl SOL2 

Disp "A > 0 ", "2 sol" 

2 * A -» E 
( - B - V D) K 
K / E R 


PROGRAM : EQ2IN 

lnput "2° x ", B 

G * H - 1 * G E ! 

Disp "EQ.2 inc" 

lnput "2° y ", H 

Disp F’, E®sFrac 

Disp "(a x + b y - r" 

lnput "2° r ", 1 

Pause 

Disp "(" 

Disp " A = x 1 * y2 - x2 * y 1 " 

Disp "Ay =xl*r2-x2*rl" 

Disp "(a'x + b'y = r’ " 

A*H-G*B— » D 

A * I - B * C — > F - 

lnput "1° x ", A 

Disp D, D®sFrac 

Disp F, F®sFrac ; 

: lnput "1° y ", G 

Pause 

Pause * ; 

: lnput "1° r", C 

Disp "Ax = rl * y2 - r2 * y 1" 

Disp "x = Ax / A" ; 
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INTERFACE A 32 ENTREES-SORTIES 
SUR PORT PARALLELE (2ème partie) 

( par G.C. et Pierre MARTIN) 


Suite aux nombreuses remarques faites par nos lecteurs nous allons revoir en détail la description de V inter- 
face sur port parallèle présentée dans notre précédent numéro. 


POURQUOI AVOIR CHOISI D’ ECRIRE UN 
PROGRAMME EN MODULA-2 PLUTOT Q’EN 
TURBO "XX" ! 

Le MODULA-2 a été développe par le père de PASCAL, 
Le Pr NICKLAUS WIRTH, 10 ans apres la création de ce 
premier. De ce fait c’est un langage encore plus structuré 
incorporant le concept de module. Sa syntaxe est plus systé- 
matique que le PASCAL et P apprentissage en est facilité. 
Le MODULA de Fitted Software lools bénéficie d’une 
bonne réputation, il est disponible en SHAREWARE, est 
très proche de la description du Pr WIRTH et possède un 
assembleur intégré pour les routines de bas niveaux. 

Son écran d'accueil ressemble à s’y méprendre à celui du 
Turbo Pascal version 3.0 pour ceux qui ont connu. Par con- 
tre son éditeur est multi fenêtres (jusqu’à 4), et ses comman- 
des sont configurables pour les habitués du CtrlKD (dont 
nous faisons partie). De plus ce meme éditeur est capable 
de supporter un écran autre que 80x25 (132x44 par exem- 
ple : il est alors nécessaire de choisir le bon mode écran, 
avec l’utilitaire livré avec votre carte vidéo, avant de lancer 
l’éditeur). 

Il est donc très approprié à la réalisation de programmes 
pédagogiques et à l’étude de la programmation structurée 
par l’étudiant désargenté. 

Voilà donc de bonnes raisons de vous faire connaitre ce lan- 
gage à travers cette réalisation avant de devenir des incon- 
ditionnels forcennés du C++. 

Où sc procurer le COMPILATEUR MODULA-2 de 
Fitted Sofware Tools ? 

fout d’abord le compilateur MODULA 2 EST est disponi- 
ble en téléchargement sur les serveurs suivants : (nous avons 
vérifié) par TELETEL 3 (36 1 5) 

RIJSTY (V 3.1), FREEWARE (V 2.0a), TEASER (V2.0a 
et V 3.1), et SMI. 

Cette liste n’est pas limitative et d’autres serveurs peuvent 
le proposer, la publicité faite pour ceux énumérés ci-dessus 
est complètement désintéressée. 

En règle générale le téléchargement s’effectue avec un logi- 
ciel spécial pour chaque serveur (gratuit le plus souvent), ce 
dernier peut être commandé à partir de la rubrique adéquate 
une fois connecté au serveur. 

Le câble nécessaire à l’interface minitel/PC peut être stan- 
dard quelque soit le serveur. De nombreux détaillants le pro- 
pose y compris les serveurs eux-mêmes. 

Le compilateur MODULA est accessible dans la rubrique 
’’ programmation " à partir du menu téléchargement pour PC. 
PSI : A noter toutefois que la version 3.1 de ce compilateur 
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supporte la programmation orientée objet et que TEASER 
propose un tutorial pour apprendre pas à pas ce langage 
(CORONADO SOFTWARE). 

PS2 : Il est aussi disponible auprès de son auteur ; FITTED 
SOFWARE TOOLS pour 50$ et dans ce cas vous devenez 
utilisateur légal, avez accès au source des bibliothèques, et 
vous êtes tenu informé des mises à jour, ce qui à été notre 
cas en janvier 93 pour la version 3.1. 

FITTED SOFTWARE TOOLS 
P.O. Box 867403 Piano, TX 75086 
BBS 214/517-4629 

OL E PROGRAMME INTERFA CE 

En tait il s’agit d'un module de bas niveau réalisant l’inter- 
face entre le Hardware (interface registres à décalages / port 
imprimante) et les niveaux logiciels supérieurs. 
L’utilisation des services de l'interruption 17H du BIOS 
permet de s'affranchir de l’implantation du port imprimante 
qui n’est pas forcément au standard PC (cas du PORTFO- 
LIO où l’interface parallèle est adressée à partir de 8078H). 
MODULA-2 impose de créer deux fichiers, un pour le mo- 
dule de définition (IN OUT.DEF) et le deuxième pour le 
module d’implémentation (IN OU I .MOD). Sauf bien sûr 
pour le module principal MA1N.MOD puisqu’il n’exporte 
rien vers les autres modules. 
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INTERFACE A 32 ENTREES-SORTIES SUR PORT PARALLELE ... INTERFACE A 32 


l JEOWFy TEÏS 





2YLISTING PU FICHIER DE DEFINITION » 
INJQUT DEF » 

Le module IN OUT utilise un BITSET (ensemble de bits) 
plutôt qu’un tableau de 32 booléens ceci dans un but peda- 
gogique. 

Les opérations d’inclusion, d’exclusion et d’appartenance 
sur un élément X de ce type d’ensemble vont nous permet- 
tre de manipuler très simplement ce type de données. 

3>LE SCHEMA ELECTRONIQUE PU L’INTER- 
FACE 32 Entrées / 32 Sorties : 

Le schéma comporte 2 blocs bien distincts : 

LE PREMIER est le registre à décalage pour les 32 entrées, 
ce registre comporte 4 circuits intégrés CMOS du type 
CD4021 rebouclés circulairement. 

Après chargement de ce registre par les états logiques pré- 
sents sur scs entrées, les bits sont mis en rotation de la droite 
vers la gauche à chaque coup d’horloge. Le fil PE de la sor- 
tie imprimante, raccordé sur la cellule de rang le plus élevé, 
voit donc défiler un nouveau bit à chaque pas d’horloge. 

LE DEUXIEME est le registre à décalage pour les sorties, 
ce dernier comporte 4 circuits CMOS du type CD4094 mon- 
tés en cascade. Ce dernier type de circuit comporte en fait 
un registre de travail pour les décalages et un deuxième re- 
gistre pour tamponner les sorties afin qu’elles restent dans 
un état stable pendant les opérations de décalage. 

Les bits déjà présents dans le registre de travail sont décalés 
de la droite vers la gauche alors que le niveau logique pré- 
sent sur la sortie D2 du port imprimante entre par la cellule 
de rang le plus faible et ceci à chaque pas d’horloge. L’or- 
dre de transfert vers le registre tampon est émis dès que les 
32 bits sont tous entrés dans le registre de travail. 

- Le signal STROBE de la sortie imprimante sert d’horloge 
de décalage série pour ces registres. 

- La sortie D2 (bit de données N° 1 ) permet le chargement 
des registres d’entrées (CD4021) et le transfert des don- 
nées du registre à décalage vers le registre tamponnant les 
sorties (CD4094). 

- Les données sont émises en série sur la sortie DI (bit de 
données N° 0). 

- Les données sont reçues sur le fil PE ou PaperEnd (bit N° 
5 du registre de status). 

Des réseaux de 8 résistances en boîtier SIL sont prévus sur 
les entrées afin de les polariser, le point commun de ces ré- 
seaux (patte N° 1 ) sera soit relié au 0 Volt soit au fValim 
selon le montage de ces composants sur le circuit imprimé. 
En effet dix trous sont prévus par boîtier SIL à neuf broches, 
les trous les plus extrêmes sont respectivement le 0 Volt et le 
+Valim. 

Une source d’alimentation extérieure est nécessaire pour ali- 
menter le circuit interlace. Elle doit délivrer une tension sta- 
bilisée de +5 volts afin que les niveaux logiques de cette 
interface soient compatibles avec ceux du port imprimante. 


Cependant si l’utilisateur final désire alimenter son circuit 
interface avec une tension de 9, 12 voir 15 Volts pour des 
problèmes de niveaux logiques avec ses capteurs et ses cir- 
cuits de commande, il devra toujours utiliser une alimenta- 
tion stabilisée et prendre la précaution d’insérer entre le port 
imprimante et la logique CMOS de l’interface 2 circuits 
convertisseurs de niveaux comme le MC 14504 de Motorola. 
Le premier convertira les signaux TEL du port imprimante 
: D 1 , D2 et STROBE en niveaux CMOS 12 Volts (ou autre), 
le deuxième effectuera exactement l'inverse pour le fil PE. 

4YLA FABRICATION DU CIRC! JÏT Fl Ff TRO NIQI I F. 

Ce circuit est dit circuit à double faces. 

Nous vous proposons 3 schémas de cette interface, directe- 
ment exploitables. 

Le premier correspond à une face du circuit ; celle où l'on 
plaçera les composants. 

Le deuxième correspond à une autre face ; celle du dessous, 
où l'on soudera les composants. 

Le troisième correspond à l'implantation des composants ; 
c'esL la face sérigraphie, qui ne sert que d’élément de réfé- 
rence et de positionnement. 

Le pas (c’est à dire l'écartement entre les trous) est de 2,54mm 
soit 1/10 ème de pouce (norme courante). 

Voici la manière de procéder. 

Faites faire un film positif des 2 schémas (face composants 
et face soudure), par exemple chez un imprimeur ; ceux-ci 
souvent possèdent un appareil de reprographie. Ou alors, 
utilisez les films présensibilisés qui permettent la fabrica- 
tion de positifs à partir d’une feuille de papier, avec une in- 
solation adaptée (disponible chez de nombreux magasins 
d'électronique). En lin, il existe dans de nombreuses villes 
des magasins d'électronique proposant leur service pour la 
fabrication de films (voire de circuits). 

Si toutefois, vous n'avez pas le temps ou les moyens d'effec- 
tuer ces films ou les circuits, nous pouvons vous fournir les 
circuits epoxv 16/10 ème nus tout prêts à être montés en 
double face trous métallisés et vernis épargne. Dans ce cas, 
laites -nous parvenir un chèque de 1 30F + 30E de port (comp- 
ter environ 2 semaines pour recevoir le circuit chez vous). 
Pour ceux qui sont tentés par l'aventure de la fabrication du 
circuit, voici comment procéder. 

Muni de vos films parfaitement contrastés noir et incolore, 
vous avez là encore plusieurs possibilités. 

Vous pouvez les faire fabriquer par un spécialiste, via un 
magasin d'électronique, (très onéreux !) Ou bien, certains 
magasins possèdent des machines à fabriquer les circuits (in- 
téressant pour les gens pressés !). Enfin, vous pouvez les 
fabriquer vous même (très bonne initiation !). Pour ce faire, 
il vous faut acquérir une plaque d’epoxy présenbilisée dou- 
ble face, épaisseur 16/10 ème de mm d'environ 20cm par 20. 
Pourquoi aussi grande nous diriez-vous ? Parceque la pre- 
mière fois, il n’est pas rare de rater ses premiers essais de 
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fabrication ; nous verrons pourquoi par la suite. 


Achetez également du percholure de fer ( 1 litre) ainsi que 
quelques bacs assez grands de type ! upperware, avec cou- 
vercle. Enfin il faut vous procurer une ampoule (250watts 
environ) spéciale à insolation (tous ces produits sont dispo- 
nibles dans les magasins d'électronique et ne coûtent pas 
très cher). 

Le but de la manoeuvre est de graver la représentation des 2 
films sur les 2 laces cuivrées de la plaque d'epoxy. 

a) l'insolation des faces : 

Ceci consiste au moyen de l'ampoule et en plaquant le film 
(se reporter à la notice fournie avec la plaque ou demander 
conseil au commerçant), à insoler pour fixer la résine photo- 
sensible dont les faces de la plaque sont revêtues. Après in- 
solation, seules les pistes du circuit seront visibles, le reste 
de la lésine est parti. Ici, le temps d'insolation, ainsi que la 
distance de la lampe par rapport à la plaque sont détermi- 
nants (laites des essais avec des petits morceaux de plaque). 

b) la gravure au perchlo : 

Tout d abord, attention au perchlo ! ce produit est dange- 
icux, il est très abrasif Au besoin, protégez-vous les yeux 
avec des lunettes, une éclaboussure dans l'oeil est vite arri- 
vée. Si cela était le cas, rincez immédiatement à l'eau. Les 
mains ciaignent également, portez des gants type chirurgien 
pai exemple. De plus, lorsque votre travail sera terminé, re- 
formez soigneusement la boîte hermétique du perchlo,' car 

celui-ci produit des émanations également dangereuses à 
fortes doses. 

Les 2 faces correctement insolées (il faut que les pistes soient 
bien visibles et contrastées), rincez abondamment à l'eau 
courante en frottant très doucement sur la plaque pour éli- 
miner les tésidus de résine non désirés. Ensuite, plongez la 
plaque dans le perchlo, si possible en ayant ménagé une pe- 
tite surface poui maintenir la plaque avec une pince à linae 
en plastique (pas de 1er !), et remuez doucement. Au bout de 
quelques dizaines de secondes, vous verrez apparaître les 
premières traces de gravure, le cuivre est rongé par le perchlo, 
saufia où la résine est placée (c'est-à-dire sur vos pistes). 
Vous pouvez accélérer la gravure en plaçant votre bac dans 
un autre bac plein deau chaude, selon le principe du bain- 
marie. Attention de retirer au bon moment votre plaque, si- 
non, gare aux pistes rongées ! Ne la retirez pas trop tôt non 
plus, car les pistes auront de nombreux court-circuits. Faites 
des essais avec des petits morceaux et chronométrez. Lors- 
que votre circuit est terminé, rincez-le à nouveau, 

c) Le perçage des trous et la préparation du circuit : 
fout d'abord, essayez de découper le plus correctement vo- 
tre plaque en lorme de rectangle, avec une scie ou autre outil, 
sans abîmer le cuivre. 

Percez les trous qui permettront de placer les composants 
avec une mini perceuse et des mèches spéciales epoxy (chez 
votre commerçant) de 0,8mm. Vous pouvez éventuellement 
revêtir la face composant d'un verni épargne en bombe. Vous 


auriez pu aussi avant tout chose, étamer à froid votre plaque 
(bidon d'étain chez votre commerçant). L'avantage de l'éta- 
mage est qu i! permet de bien meilleures soudures et évite au 
cuivre de s'oxyder avec le temps. L'inconvénient est qu'il 
coûte cher. Après perçage, vous remarquerez que le cicuit 
étant un double face, certains trous servent de passage d'une 
façe a I autre. Vous pouvez faire communiquer les faces avec 
les pattes des circuits intégrés à implanter, et compléter les 
trous vacants avec des queues de résistances par exemple 
que vous aurez soin de positionner correctement. Il existe 
aussi dans le commerce, des petits rivets qui permettent ce 
passage d'une face à l'autre. 

d)Le montage : 

Il vous restera à souder les composants. Ceux-ci se trouvent 
lacilement dans le commerce. Faites attention au sens. Pla- 
cez devant vous le point gravé sur le composant. La pre- 
mière patte à droite est la patte i . La dernière du même côté 
est la masse. La dernière de l'autre côté (patte 1 4 ou 1 6 le 
plus souvent) est le +5 volts. Vous devrez aussi acquérir du 
câble en nappe 25 points, ainsi qu'un connecteur à sertir qui 
viendra s enficher dans le port parallèle de votre ordinateur, 
et un autre à souder pour se connecter sur la carte. 4 réseaux 
de résistances de 1 00 K ohms 9 points polarisées au 4- 5 volts 
viendront compléter ce montage. Enfin, vous remarquez un 
régulateur de tension 5 volts (7805). Il permet d'abaisser la 
tension de 9 a 5 volts dont ont besoin les composants pour 
fonctionner. Respectez le sens du régulateur et vérifiez que 
vous obtenez bien 5volts et quelques broutilles et non pas 6 
volts pat exemple (ce qui voudrait dire que vous avez in- 
versé les fils d’arrivée et de sortie du régulateur) ; la masse 
est la patte du milieu, l’entrée 9 volts est à droite, la sortie 5 

volts, à gauche. N oubliez pas de fixer un mini radiateur sur le 
régulateur pour éviter qu'il chauffe trop. 

La lettie C près du régulateur indique un pont de soudure 
permettant d’utiliser la pin 26 située exactement à l’opposé 
de la pin 1 (inutilisée car il ne faut que 25 pins pour le con- 
necteur parallèle) du connecteur sur la carte, comme source 

d'alimentation + 5 volts supplémentaire (pour utilisation d'un 
capteur par exemple). 

four les soudures, utilisez un fer de puissance correcte (en- 
viron 40 watts) et non pas sous dimensionnée, et gare aux 
soudures sèches qui font croire que la patte est soudée alors 
que ce nest pas le cas ! Vérifiez toutes vos soudures une à 
une et si vous possédez un multimètre muni d'un testeur de 
continuité (indispensable pour travailler en électronique et 
détecter pai exemple les court-circuits : on trouve des appa- 
reils de bonne qualité à bas prix maintenant, préférez l'affi- 
chage LCD qui facilite la lecture), testez les pistes une à une 
après ch aque_co mpo_sants_; n’ayez pas peur de travailler len- 
tement mais très rationnellement, ceci paie à long terme. 
Voilà, bon courage !!! Dans le prochain numéro de 
POCHE COMPUTERS, nous étudierons la réalisation d’un 
premier capteur, adaptable à cette interface. 
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CIRCUIT FACE COMPOSANTS 



CIRCUIT FACE SOUDURES 
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CIRCUIT FACE SERIGRAPHIE - IMPLANTATION 
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Ici, vous pouvez 
souder 

par exemple des 
broches 

en laiton cuivré afin 
de permettre une 
meilleure utilisation 
ultérieure des contacts 
d'entrées-sorties 


réseau de 
résistances 


Copyright 1993 POCHE COMPUTERS tous droits réservés, 
il est autorisé d'utiliser ces dessins, de les copier à titre personnel, excepté dans un but d'exploitation commerciale 


50 


POCHE COMPUTERS N°2 



TRANSFERTS DE DONNEES ENTRE LE 
PORTFOLIO ET LE REDACTEUR 4. 


par François-Pierre LANGLOIS 


testeur ayant contribué à la réalisation du REDACTEUR 4 

? 

(sortie fin 93). 


ainsi que du futur correcteur grammatical 


1) PO UR COMMENCER: 

Quand on utilise un outil de bureauti- 
que aussi performant que le rédacteur 4, 
il est bien tentant de faire circuler ses 
fichiers entre son ordinateur de poche 
et sa machine de bureau. 

C est ce que je vous propose de faire 
ici, notamment pour le problème spé- 
cifique de la récupération de vos fichiers 
vers la base de données du Rédacteur 4, 
plus connue sous le nom d’AZTHEQUE. 
Bien que le transfert de fichier d’un 
portfolio vers un ordinateur Atari ST 
(dans les deux sens), soit une manipu- 
lation très simple, pourvu que l’on soit 
équipé du logiciel Foliolink et de son 
câble de liaison spécifique, il est inté- 
ressant de constater qu’il existe un com- 
portement d'utilisation très différent 
selon que l’on fait ce transfert une seule 
fois pour la récupération de données 
d’un ordinateur vers l’autre ou bien qu’il 
s’agisse de transferts réguliers. 

Le deuxième cas de figure étant bien 
plus conforme à la logique et à la phi- 
losophie des ordinateurs de poche. 

Dans le premier cas que je décrirai 
comme étant la voie rapide, il s’agit ni 
plus ni moins d’interpréter convenable- 
ment le mode d’emploi des logiciels 
(fonction importation et exportation no- 
tamment) et des machines. Dans l’autre 
il laudra tenir compte d’astuces tirées 
de la pratique des utilisateurs aguerris à 
ce genre de manipulations. 

Le choix du logiciel foliolink (qui ne 
peut fonctionner sans son câble bidirec- 
tionnel, ce qui est une protection effi- 
cace), et de l’interface parallèle du port- 
folio est dicté par la simplicité et la rapi- 
dité de la méthode qui est totalement dans 
la philosophie du ST et du GEM. Le 
fait que beaucoup de Portfolio aient été 
livrés avec une interface parallèle d’ori- 
gine, valide cette configuration. 



astuce pour les utilisa- 
teurs CONNAISSANT DEJA 
FOLIOLINK : 

Il est souvent pénible à chaque utilisa- 
tion du logiciel d’avoir à éditer la liane 

t—r* 

du sélecteur qui systématiquement par 
défaut sur alors que les utilisa- 

teurs sérieux du Portfolio auront toutes 
leurs données sur une CARDRAM, 
autrement dit sur l’unité A. 

Pour ne pas avoir à faire cette manipu- 
lation à chaque lois, utilisez un simple 
éditeur de secteur comme Diskdoctor. 
Puis éditez le fichier FL1NKST.PRG. 
Lancez une recherche sur la chaine C:\ 
et remplacez par A:\ et enfin sauvegar- 
dez. Le programme fonctionnera doré- 
navantainsi modifié (essayez quand même 
d abord sur une copie de sauvegarde). 




IIUAAT ME RAPIDE : 

DU FOLIO VERS L’ATARI. 

Iranslérez le fichier sur le disque dur 
de 1 ’ Atari, ce qui se fera sans problème 
grâce à la simplicité biblique du logi- 
ciel FOLIOLINK. 

Dans Azthèque créez un fichier en 
1 ouvrant sous un nouveau nom (ex: 
NOUVEAU. AZT.) et utilisez la fonc- 
tion «Importer», c’est tout... Attention 
quand vous importez un fichier dans 
Azthèque il vous est demandé de choi- 
sir le format d’importation, vous sélec- 
tionnerez évidemment PORTFOLIO. 
Mais à ce moment le sélecteur d’objet 
choisira automatiquement *.DAT comme 
extension (c’est malheureusement un des 
trop nombreuses bogues d’Azthèques), 
il vous suffira* simplement de modifier 
la ligne de sélection par *.ADR. 



OWPUÎERS 


TRANSFERTS de DONNEES entre le PORTFOLIO et le Rédacteur 4 - TRANSFERTS 


DE L’ATARI VERS LE FOLIO : 

II est indispensable de comprendre le 
minimum en ce qui concerne la struc- 
ture d’un fichier de données. 

Un fichier est composé de fiches, el- 
les-mêmes structurées en champs ou ru- 
briques (c’est la même chose), à l’inté- 
rieur desquels vous allez inscrire vos 
données. 

Exemple: FICHE 1 

NOM : BEAUPOUMON 
PRENOM : Mimy 
TEL : 61.69.69.69 

FICHE 2 
NOM:.... 

Tous les programmes de gestion de fi- 
chiers auront le souci de mettre des sé- 
parateurs, des repères en quelques sor- 
tes, différents entre les champs et les 
fiches proprement dites. 

Or, pour le Portfolio, le choix de ces 
séparateurs ont été fait de manière très 
sommaire. 11 s’agit, pour les connais- 
seurs, d’un CR ou CHR$ (13) pour les 
champs, et de deux CR ou deux fois 
CHR$ (13) pour les fiches. 

Cette disposition rudimentaire vous im- 
pose de remplir impérativement tous 
les champs du fichier AZTHEQUE 
avec au moins une donnée dans cha- 
cun : cette donnée peut être un simple 
espace si vous n'avez rien à y inscrire. 
C’est la condition sine qua non pour 
récupérer votre fichier sans le déstruc- 
turer sur le Portfolio. Voir la partie «La 
méthode de travail cohérente» pour ne 
jamais oublier ce point indispensable. 
Si votre fichier AZTHEQUE respecte 
cet impératif', le reste coule de source : 
Cliquez la fonction «Exporter». Véri- 
fiez bien que vous sélectionnez la pre- 
mière à la dernière fiche, qu’il y ait un 
champ et un seul par ligne et que celui- 
ci soit à gauche du masque d’exporta- 
tion. 

Cliquez sur le format ASCII (et non pas 
REDACTEUR) et inscrire 1 sur la ru- 


brique nombre de lignes entre deux fi- 
ches. Pas de trait de séparation. Nom- 
mez votre fichier en mettant l'exten- 
sion .ADR 

Transférez le fichier via FOLIOLTNK, 
il est prêt pour la consultation sur vo- 
tre PORTFOLIO. 

lit) LA METHODE DE TRAVAIL 
COHERENTE: 

Mon expérience de l 'utilisation d’un or- 
dinateur de poche à servir de tenninal 
de saisie et de consultation de données, 
gérées par ailleurs dans un micro de 
bureau m’amène à vous faire les sug- 
gestions suivantes, ainsi que quelques 
précisions. 

Tout d’abord ne travaillez jamais sur 
un même fichier se trouvant sur vos 
deux machines. On a vite fait lors des 
transferts, d’écraser des données tem- 
poraires (une nouvelle adresse, par 
exemple) inscrites sur un des deux mi- 
cros. Ma méthode pour la gestion de 
mes adresses, consiste à avoir un gros 
fichier complet géré sur le PC de bu- 
reau, mais souvent consulté lors de mes 
déplacements sur mon Portfolio, et un 
autre plus petit, géré sur le Portfolio, 
contenant d’une part les adresses des 
contacts les plus fréquents, et sur le- 
quel je note d’autre part les nouvelles 
adresses qui seront manuellement ins- 
crites sur le fichier du PC de bureau. 
Ce petit fichier est pourtant régulière- 
ment transféré vers AZTHEQUE pour 
consultation. 

Pour des raisons analogues, nommez 
différemment le fichier géré sur une 
machine (celui qui sert à la saisie) et 
celui qui sert à la consultation sur 
l’autre. 

Pratiquement, ce qui donne pour le car- 
net d’adresses, par exemple : 

Sur le Portfolio, 2 fichiers : 
FOL I O P. ADR et CARAD P.ADR 
FOLIO A. AZT et CARAD A.AZT 

DU FOLIO VERS L’ATARI. 

Dans la voie rapide, j’ai passe sous si- 


lence le fait qu’en s’y prenant comme 
indiqué, vous récupérez bien vos 
donées, mais AZTHEQUE se conserve 
le privilège (abusif) d'imposer ses pro- 
pres noms de rubriques. Il serait agréa- 
ble de pouvoir conserver la présenta- 
tion d’un fichier AZTHEQUE, nom et 
présentation des champs, telle qu’elle 
aura été définie une lois pour toute. 
Pour ce faire : 

Ouvrir un fichier sous le nom de 
CLONE.AZT, importez le fichier 
FOL I O P. ADR, sauvegardez. 

Après avoir soigneusement préparé la 
structure d’un fichier sur 
Azthèque, sauvez ce fichier. Ex : 
FOLIO A.AZT. 

Puis utilisez la fonction «charger mo- 
dèle», (seule la structure du fichier est 
chargée, mais celui-ci est vide) et char- 
gez le modèle 

POLIO A.AZT qui aura été défini une 
bonne fois. 

Enfin avec la fonction «ajouter» vous 
incorporerez les fiches du fichier 
CLONE.AZT. 

Par la suite, vous opérerez toujours de 
même (gardez la check-list, soit cet ar- 
ticle, sous la main). 

DE L’ATARI VERS LE FOLIO : 

Je vous ai soigneusement caché dans 
la voie rapide, qu’ AZTHEQUE a la dé- 
testable habitude d’envoyer un saut de 
ligne comme première fiche, ce qui 
aura pour application pratique que la 
première fiche sera ignoré par le car- 
net d’adresse du PORTFOLIO. 
L'astuce consiste à introduire dans vo- 
tre fichier AZTHEQUE une fiche bi- 
don qui sera toujours la première quel- 
que soit le mode de tri. Il suffit de rem- 
plir tous les champs de cette fiche avec 
des O, 

Enfin, afin de ne pas laissez un vide 
dans un champ lors d’une saisie d’une 
fiche AZTHEQUE (ref : la voie ra- 
pide), donnez le statut «obligatoire» 
pour tous les champs. Cela se fait par 
le choix de l’item «modifier les rubri- 
ques» du menu «option». 
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PORTFOLIO : TRUCS ET ASTUCES 

par JL LECOMTE 

S “ ,te tf à . d€ " 0mbremes demandes de lecteurs non spécialistes en informatique , mais fervents utilisateurs du 
Po't oho, nous démarrons ic, une rubrique pour personnes débutantes ou désirant tout simplement appro- 
fondir la connaissance de ce merveilleux petit ordinateur. Vous retrouverez cette rubrique dans les prochains 

zrf , com : mEHs Nm « "■“'*»> «■ « mZXJüSStz 

nueux voù e appareil et rendre plus facile son exploitation . ' 

1) rappel général : 

Le Portfolio esl organisé autour d'un microprocesseur de type 

8086 - La R0M interne (dans laquelle sont contenus le bios! le 
DOS 2.11 et les différents logiciels intégrés) est de 256K, la mé- 
moire vive esl de 128K. extensible à 5I2K. il est possible de 
configurer cette mémoire vive en créant un mini disque dur vir- 
tud (nommé C:) avec l'ordre FDISK. Cet ordre (ait partie * tout 
an jeu d instructions du DOS dont i! est important de connaître 

les principales ; nous verrons un peu plus loin l'explication de ces 
ordres. 

Mais revenons à notre mémoire vive. L’ordre FDISK doit être 

suivi dun chiffre compris entre 8 et 80 dans le cas d’un Portfolio 

de base, et beaucoup plus (jusqu’à 464) pour un Portfolio de 5 1 2K. 

De nombreux utilisateurs ont quelquefois des problèmes, pour 

avoir négligé la configuration de la mémoire. En effet, sur les 

128K annoncés, Je directory (catalogue) et les différents fichiers 

système ne laissent que 126K environ disponibles. De plus, la 

création d’un disque virtuel étant obligatoire, l’organisation de la 

me moi ic pouna par exemple se décomposer comme suit : 

Sou un FDISK 40 (réservation de 40Kilos octets pour un disque 

virtuel), nous pourrons lire à l’écran du Portfolio après avoir tapé 

1 ordre du DOS, CHKDSK : (ordre qui permet d’examiner le con- 
tenu de la mémoire). 

89168 octets en capacité totale du disque 
256 en 1 répertoire 

38912 octets disponibles sur disque 
126976 mémoire totale 
71848 octets libres 

Qu est-ce que cela signifie ? Fout d’abord, précisons que sous C: 

(c'est à dire sous DOS dans la mémoire du Portfolio), après avoir 
tapé I DISK 40, il vous sera indiqué que tous les fichiers existants 
seront perdus , ceci est normal puisque cet ordre efface complète- 
ment la mémoire interne (mais pas la ROM et ses logiciels ! ras- 
surez-vous). Vous répondrez donc "oui”. Donc, la première ligne 
indique la capacité du mini disque dur que vous avez créé. La 
deuxieme ligne indique la place occupée par le directory. La troi- 
sième indique naturellement le solde de la mémoire disponible. 

La quatrième ligne nous renseigne sur la mémoire totale (vous 
remarquerez qu’elle n'est pas de 128K). Enfin la dernière ligne 
indique la mémoire restante dite ”de travail”. Vous pouvez refaire 
un autie Edisk et changer la valeur du nombre qui suit cet ordre. 

1 lus vous augmentez ce nombre et plus votre disque dur aug- 
mente, mais votre mémoire de travail diminue d’autant. Cepen- 
dant a quoi sert d avoir deux types de mémoires me direz- vous ? 

Eh bien le Portlolio se comporte à ce sujet comme un PC de table : 
à savoir qu il a besoin pour fonctionner d’une certaine quantité de 
mémoire qui lui sert à charger programmes et fichiers ; c’est la 
niémoiie de travail, et qu’il stocke les programmes et fichiers 
dans sou mini disque dur. Certains utilisateurs, pour ne pas avoir 
suffisamment dimensionne la mémoire de travail, se sont retrou- 
vés avec un message d'erreur : "mémoire pleine”. D’autre part, si 
vous la dimensionnez trop grande, vous n’avez plus assez de place 
pour sauvegarder vos fichiers et programmes. Il faut donc éva- 


luer vos besoins (ce qui n’est pas évident au départ), et modifier 
en conséquence. Par exemple, un gros fichier du carnet d’adres- 
ses (en\ non 40K ) peut éventuellement bloquer lors d'un charge- 
ment. e 

Donc, nous pouvons dire que : 

MEMOIRE TOTALE = MEMOIRE DE TRAVAIL plus ME- 
MOIRE DE STOCKAGE. 

La mémoire de travail est volatile ; c’est à dire qu'elle s'efface 
apres chaque extinction du Portfolio. Par contre, la mémoire de 
stockage, Ole. conseive les données même l'appareil éteint. 

2) Les principaux ordres du DOS : 

Nous avons vu l’ordre FDISK et l'ordre CHKDSK, mais qu’est-ce 
que le DOS. C’est un logiciel implanté dans la ROM interne (donc 
inaltérable) qui permet de créer une interface entre l’homme et 
I ordinateur, ci d'organiser ses commandes et son travail. Nous 
avons aussi le BIOS, qui est aussi un logiciel implanté en ROM, 
mais qui permet de faire la première interface entre l’électronique 
et les logiciels qui commande l'appareil (par exemple le DOS) • 
c'est ce qui permet de Booter, c’est à dire de démarrer. CeBios, a 
tau couler beaucoup d'encre et rendu des utilisateurs malheureux. 
Pourquoi ? pareeque les premières versions de ce bios (1.025 et 
L052) comportaient des Bugs ; c’est à dire des erreurs internes et 
I ai saie ni planter la machine avec souvent des conséquences dé- 
sastreuses (perte complète de données). Depuis, la version 1 .072 
est apparue, beaucoup plus 1 iable et surtout la version 1 . 1 30. Vous 
pouvez vous assurez que vous n’avez pas de version ancienne en 

tapant au clavier : VER. En haut à droite de l'écran, vous verrez 
apparaître le numéro. 

Donc, voyons quelques ordres importants du DOS. 

Le premier, et le plus utile est l'ordre DIR qui signifie aller voir le 
contenu de la mémoire, du catalogue des fichiers et programmes 
(nous n indiquons pas ici qu'il faut validera chaque ordre du Dos, 
l cia est implicite). Au sujet de l’organisation de la zone mé- 
moiie de stockage, 1 erreur que font beaucoup de personnes dé- 
butantes, est de placer toutes sortes de fichiers dans une même 
racine. Au bout de quelque temps, il devient très difficile de vous 
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y retrouver. Des fichiers de nature complètement differente sont 
mélangés. Nous pouvons comparer l’organisation de la mémoire 
de stockage comme un arbre généalogique, en partant des grands 
parents, par exemple, pour arriver aux petits enfants et ainsi de 
suite. La racine étant les grands-parents, cela correspond à la vi- 
sualisation que vous faites lorsque vous tapez DIR immédiate- 
ment après avoir allumé votre Portfolio. Cependant, il est possi- 
ble et recommandé, ai in de clarification, de compartimenter celle 
mémoire en directory ou répertoires (correspondant par exem- 
ple pour reprendre notre image, aux parents). Lorsque vous tapez 
DIR en Racine, vous voyez apparaître : SYSTEM <REP> .Cela 
signifie qu'un répertoire (REP) ou directory a été créé (ici auto- 
matiquement par le Portfolio), et que vous pouvez le visualiser. 

a) créer un répertoire : 

Imaginons que vous travailliez avec le carnet d'adresses et avec le 
tabieur, Afin de ne pas mélanger les deux catégories de fichiers 
que vous allez générer ; xxx.adr pour les adresses et xxx.wks 
pour le tableur, vous allez créer 2 sous répertoires. Sous C:, tapez 
1 ordre MD espace ADRESSE. MD veut dire en anglais Make 
Directory (fabriquer un répertoire). Et puis adresse pour le nom 
de votre répertoire (prenez le nom que vous voulez). Tapez DIR 
maintenant, vous voyez sur l’écran ADRESSE <REP>. Faites la 
même chose avec le répertoire TABLEUR ; vous avez mainte- 
nant 3 répertoires : SYSTEM - ADRESSE - TABLEUR. Pour 
reprendre notre symbolisme de tout à l'heure, nous pouvons con- 
sidérer que la racine (les grands-parents) ont 3 enfants (les 3 ré- 
pertoires). 

b) opérations concernant les répertoires : 

Bien , maintenant, créons un fichier d'adresses, par exemple. En- 
foncez la touche rouge ATARI on bas à gauche et, tout en la main- 
tenant enloncée, pressez la lettre A, puis relâchez immédiatement 
les deux touches. 

lapez maintenant une adresse quelconque. Puis pressez la touche 
bleue Fn (en bas à gauche) et simultanément, le chiffre I Vous 
voyez apparaître un menu. Validez sur Fichiers, puis positionnez- 
vous sur sauve. Enlevez le nom existant avec la touche flèche, 
puis tapez ADRESSE\essai et validez. Explications du symbole 
du trait oblique tourné vers la gauche et séparant ADRESSE de 
essai. Ce signe signifie un chemin d’accès à partir du sous réper- 
toire Adresse. Vous l'obtenez en pressant la touche CRTL+ALT+Ia 


touche au dessus légèrement sur la gauche. Ce trait est à différen- 
cier du trait oblique tourné vers la droite. Le mot essai indique le 
nom du fichier (choisissez le nom que vous voulez). Tapez main- 
tenant plusieurs fois sur Echap pour revenir sous DOS en C: Fai- 
tes DIR. Vous voyez toujours vos 3 sous-répertoires. Mais où est 
donc passé notre fichier essai ? Eh bien, dans le répertoire 
ADRESSE. Comment le visualiser ? Tapez CD un espace et 
ADRESSE, lapez DIR. Que voyez-vous ? : votre fichier essai qui 
a pris automatiquement pour extension adr. L’ordre CD permet 
d’aller voir dans un répertoire. Maintenant, comment revenir à la 
racine (chez les grands-parents !). Tapez tout simplement CD.. 
(CD avec 2 points), et faites DIR ; vous y êtes. Vous voyez, c'est 
liés simple. CD., vous permet de revenir à un niveau immédiate- 
ment supérieur. En effet, ADRESSE et TABLEUR sont au même 
niveau, mais rien de nous empêche de créer un sous-directory 
(sous-répertoire). Par exemple, faites CD ADRESSE, (vérifier 
par DIR que vous êtes bien dans le répertoire ADRESSE), puis 
faites maintenant MD CLIENTS, puis MD AMIS. Vous venez de 
etéei dans le répertoire ADRESSE, 2 sous répertoires nommés 
Clients et Amis (par exemple pour distinguer les adresses des 
clients de celles des amis). Faites CD CLIENTS puis DIR. que 
v °yez vous ? Aucun fichier. C'est normal puisque vous n’en n'avez 
pas créé. Si vous lancez le carnet d'adresses maintenant, vos fi- 
chiers seront créés directement dans le répertoire ADRESSE (faites 
1 essai). Par contre, si au moment de sauvegarder, vous spécifiez 
un second niveau avec le trait oblique \ (antislash) puis le nom 
clients puis à nouveau \ et un autre nom de fichier, vous sauvegar- 
derez directement dans ce sous répertoire. Ceci semble assez com- 
pliqué, mais il n’en n’est rien. Faites beaucoup d'essais et cela ira 
de mieux en mieux. Il faut bien comprendre que vous travaillez 
sur plusieurs niveaux. La racine (Grands parents), le directory 
ADRESSE (les parents) et le sous directory CLIENTS (les en- 
fants). Tapez plusieurs fois Echap pour revenir sous DOS. Ques- 
tion : êtes-vous dans la racine principale ? Tapez CD (tout seul). Que 
voyez-vous ? Vous voyez C:\adresse\clients (en effet, CD seul 
vous indique le niveau où vous êtes). Donc vous êtes chez les 
enfants et non pas chez les grands-parents ! Revenez à la racine 
par CD., une première fois et vous êtes chez les parents, une 
deuxième lois et vous êtes chez les grands-parents. Maintenant, 
rien ne vous empêche de créer des sous sous répertoires ! Atten- 
tion aux mélanges ... 

La suite dans le prochain numéro. A bientôt etbon courace. 

— C 


TECHNIQUE DE COMMUNICATION PARALLELE 

PORTFOLIO <-> PC V.1Q6 par M.MANSEL 

A vertissement : V auteur ne demandant aucune rétribution pour ce logiciel, il n'en garantit pas le bon 

fonctionnement même si une utilisation prolongée ne lui en donne que des satisfactions . L'utilisateur est 
donc responsable de Vusage du logiciel et de ses conséquences. 

1) POURQUOI CP ? (communication parallèle) 

L utilitaire F I.COM fourni par ATARI ne permet pas d’utiliser 
les commandes DOS pour gérer le disque A: du Portfolio. 

L objectif de CP était de simuler un disque local et supplémen- 
taire sur le PC hôte, disque qui serait celui du Portfolio. 

2) COMMENT FAIRE ? 

2.1) Le matériel : 

La liaison Centronics est unidirectionnelle... pour les données, 
même si elle était prévue au départ pour fonctionner dans les 2 

sens ( sinon pourquoi 36 broches sur ce connecteur initial ?). 

Mais P imprimante remonte des signaux d’états que le PC peut 

relire (absence papier, imprimante éteinte ou occupée). Ces zones comprennent 5 fils donc 5 signaux maximum (un peu 


Croisons quelques fils et la communication devient possible: 

dataO 2-15 

Error 

Busy 11-6 

data4 

datai 3 - 13 

Select 

Paper 12-4 

datai 

data2 4-12 

Paper 

Select 13-3 

data 1 

data3 5-10 

Ack 

Error 15-2 

dataO 

data4 6-11 

Busv 

j 

gnd 25 - 25 

gnd 

Ack ! 0 - 5 

2.2) Le logiciel : 

data3 

PC#1 

PC#2 

Une ligne est commune : 

la 25. c’ 

est la.masse électrique 

des si- 

gliaux 2 zones sont symétriques et 
des signaux ; ce qui sort du PC#1 

correspondent au croisement 
entre dans le PC#2. 


C0MFUÏÉP5 



UqÈ N3 JFrtFOL I O : TftüCSfet 



... Le 


ENTREE AH=3 



:TRUCS«t 


plus qu un quartet, ce qui nous ramène au bon vieux temps de 
l’octal). Comment écrire ? Simple, en faisant un OUT sur le port 
imprimante voulu ,mais un OUT sur simplement 5 bits. Com- 
ment lire ? Simple, en testant l’état de r<imprimante> ou plutôt 
du port d’imprimante voulu par ÏNT17h, on voit que les 5 bits 
de poids faibles envoyés sont reçus comme 5 bits de poids fort 
dans le mot d’état, avec une complémentation pour les 2 plus 
forts XOR 1 1 000000b. Mais ce ne sont pas des octets et il n’y a 
aucun signal de synchronisation. C’est au logiciel de la faire ! 
J'ai arbitrairement choisi le bit 0 (ou dO). Le principe est simple 
car le changement d’état de ce bit indique qu’un quartet a été 
transmis et le récepteur acquitte par une opération identique. 

PRINCIPE 1 : Les octets sont transmis en 2 fois par quartets 

PRINCIPE 2 : Une synchronisation indique quel octet est transmis 
cela fait 5 bits 

-synchro à 0 pour quartet de poids faible 
-synchro à 1 pour quartet de poids fort 

CONCLUSION 1 : Au début d’un dialogue, il faut attendre que 
la synchro passe à 1 

CONCLUSION 2 : Si en cours de dialogue, on attend un nouvel 
octet et que la synchro est à 0 il y a problème. 

Idem si la synchro est à 1 entre 2 quartets d’un même octet 

SCENARIO : 

INITIALISATION 
attente synchro à 1 

si délai dépassé = ERREUR 
échange d’octets pré-déterminés 
ECHANGE 
si synchro = 0 erreur 
réception quartet P faible 

si délai dépassé == ACTION selon contexte 
si synchro = 1 erreur 
réception quartet P fort 

si délai dépassé == ERREUR 
reconstitution octet 
REPETITION ECHANGE 

Pour alléger le logiciel et rendre la communication par celte voie 
accessible à T utilisateur, j’ai ajouté P interruption 62h inutilisée 
par DOS. 

3) INTERRUPTION 62H 

Il y a 4 fonctions dans cette IT 

Initialisation de la communication 
ENTREE AH=0 
SORTIE AH-0 
MODIFIES / 

Ecriture d’un caractère 

ENTREE AH-1 AL— caractère 
SORTIE AH - ():Ok 

1: Récepteur pas prêt 
2: premier quartet non acquitté 
3: second quartet non acquitté 
MODIFIES AX 

Lecture d’un caractère sans attente 
ENTREE AH-2 

SORTIE AH = 255:0k AL-car 
0:Rien à lire 

1 : Second quartet pas reçu 
MODIFIES AX 

Acquisition de la synchro de l’émetteur 


cp_driv.sys 
cp_port.com 
ep tesl.com 
cp test. asm 


SORTIE AL - 0: synchro à 0 

1: synchro à I 
MODIFIES AX 

Le fichier ECP_TEST.ASMF illustre l’emploi de cette IT. 

4) CONTENU DE LA DISQUETTE ET UTILISATION 

( pour l’obtenir envoyez 20F en timbres plus une disquette au magazine) 

La disquette doit contenir 
cp J ire. moi ce fichier 

cp_inst.com exécutable installation de !TT62h 

driver de périphérique pour le PC 
exécutable à lancer pour le Porfolio 
pour les tests avant de lancer le pilote 
source du précédant pour exemple 
Commencer par confectionner le cable décrit précédemment en 
utilisant un connecteur mâle et un connecteur femelle, ce qui per- 
met de 1 insérer dans la liaison PC/Portfolio existante. 

Copier pat FI ECP__ .O? ?.C OMF sur le Portfolio, Lancer 
FL 1 _1NS I P sui le PC ci le Portlolio. Si LIT est dé|à occupée 
un de vos pilotes ou utilitaire, c’est signalé. A vous de P ôter... 
Lan ce i ECP_TES IF sur les 2 machines : Ce que vous tapez s 
un clavier doit apparaître sur les 2 écrans. Sinon, revoyez vo 
soudures ! Sortie par ESCape. Vous pouvez également lance 
ECP.TESTF sur Portfolio et par exemple DIR I CP_TEST sur h 
PC. Les 2 écrans doivent ailicher le contenu du répertoire cou 
ram du PC. Sortie par A C sur le PC et ESCape sur le Portfolio. S 
et seulement si tous ces tests sont positifs, modifier CONFIG.SYS 
du PC pour ajouter DEV1CE=ECP_DRIV.SYSF en copiant et 
dernier sous la racine du disque du PC. Lancer ECPJPORTF sui 
le Portfolio et faire un «BOOT» du PC. Le driver doit annonce! 
qu’il a installé le disque du Portfolio sur D: (ou plus si D: est déjs 
pris). Supposons qu’il annonce D : faire 

DIR D: 

TYPE D:... un fichier 
COPYD:... C: 
et pour finir 
copyC:... D: 

Sur le Portfolio l’appui sur n’importe quelle touche 
provoque le retour sous DOS 

Tout le logiciel gère des time-oul et le Portfolio affiche le nature 

des opérations en cours «l»ecturc ou «e»criture ainsi que le status 
qui doit rester à 00. 

SI TOUT S’EST DEROULE NORMALEMENT. LE PC 
VOIT LE DISQUE DU PORTFOLIO COMME UN DES SIENS 
TOUTES LES COMMANDES DOS,TOUS LES UTILITAI- 
RES FONCTIONNENT SUR LE DISQUE DU PORTFOLIO 

5) REPONSES A QUELQUES QUESTIONS : 

*ça ne marche pas sur mon PC ? 

Il se peut que des problèmes de synchronisation apparaissent avec 
des PC rapides. Tout a été développé avec un clone AT 786 à 
12MHz 

♦Comment démarrer le PC si le Portfolio n’est pas connecté ? 
Pas, de problème, un time-oul autorisera le PC à continuer son 
BOOI. Attention, ÜT62h ne sera pas installée. 

*Esl-ce limité à un dialogue entre PC et Portfolio ? 

A priori non, cela doit fonctionner entre 2 PC mais je n’ai fait 
aucun test. Par contre, ne pas tenter d’installer FX’P_DR1VF sur 
le Portfolio, il esi «un peu court». Plus tard peut-être... 

*Y aura-fil d’autres versions de ECPF ? 

Oui, si les améliorations demandées sont faisables et justifiées. 



TURBO-FORTH pour PORTFOLIO 

par REM CORP. 


Un ordinateur dans sa poche et ne pas pouvoir programmer, quelle déception. Il y a bien le Basic , le C ou le 
Pascal, mais ceux-ci sont souvent très gourmants en mémoire. 


Avec FORTH, véritable langage de programma- 
tion, apparu dans le monde de l'astronomie et vul- 


garisé par les calculatrices HP, vous disposez d’un 
outil efficace et compact. Rustique mais simple, 
le langage FORTH nécessite rigueur, mais apporte 
de grandes satisfactions à celui qui s'y investit. 
Loin d'être exotique, FORTH est utilisé dans des 


app lications majeures : 

- logiciel VP-PLANNER, un clone de LOTUS 
123 


- logiciel ÎBM-Cadd, concurrent direct d'Autocad 

- dans le GDI de Philipps 

- dans le télescope spatial Hubble 

- pour le contrôle d’automates sur chaînes de pro- 
duction chez RENAULT, PEUGEOT, CITROEN... 
TURBO-Forth en est une version française. La ver- 
sion spécifiquement adaptée au PORTFOLIO 
d’ ATARI offre même des possibilités étonnantes. 

UN INTERPRETEUR 

TURBO-Forth pour PORTFOLIO D’ATARI of- 
fre la souplesse d'un interpréteur. Toute commande 
tapée au clavier est directement exécutée. Il 
reconnait près d'une centaines de commandes. Sa 
syntaxe, de type RPN (pour Reverse Polish Nota- 
tion) est identique à celle du langage PostScript. 
Si ce dernier est un langage de description de page, 
alors FORTH est un langage de description d'ap- 
plications. Exemple de quelques commandes sim- 
ples: 

DARK efface l’écran 

DIR affiche le contenu du répertoire 

LIST <fichier> liste le contenu d’un fichier AS- 
CII 


adr len DUMP exécute un DUMP mémoire etc... 
UN COMPILATEUR 



\ FOR N=Q TO 10000: N EXT 
\ du langage BASIC 

Si petit que soit le fichier source, il sera directe- 
ment compilé. Sans directive particulière, le dic- 
tionnaire FORTH sera complété par tous les noms 
de procédures délinis par le programmeur. Ainsi, 
pour exécuter le mot BOUCLE défini ci-avant, il 
suffit ensuite de taper BOUCLE depuis F interpré- 
teur, Une telle procédure s’exéutera en trois dixiè- 
mes de seconde. 

Outre la rapidité, un programme FORTH est 
extrêmement compact. Si compact, qu’il est capa- 
ble de tenir dans un espace mémoire plus restreint 
que son 


TURBO-Forth, c'est aussi un compilateur simple. 
Si simple qu'il compile en une seule passe, sans 
linkeret sans générer de fichiers .OBJ, Il convertit 
directement un fichier ASCII en programme exé- 
cutable. Exemple: 

: BOUCLE 
1 0000 DO LOOP ; 

\ équivalent de 


équivalent écrit en assembleur. Cette particularité 

grâce à son moteur interne tout à fait 




îer. 




UN MOTEUR MULTI TACHE 
TRUBO-Forth pour PORTFOLIO est rapide et 
compact. Mais il est aussi muîti-tâches sous DOS. 
Sans programme résident, sans driver spécifique, 
sans patch logiciel, le moteur interne de TURBO- 
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TURBO-FORTH pour PORTFOLIO... TURBO-FORTH pour PORTFOLIO 

MANUEL D’APPRENTISSAGE et GUIDE DE 
REFERENCE. 


Forth est capable d’exécuter simultanément deux 
ou plusieurs programmes Forth différents. Le pro- 
gramme uî peut parfaitement avoir le contrôle de 
l’interpréteur pendant qu'une tâche de fond sur- 
veille un processus spécifique (voie série, voie 
parrallèle, etc...). 

Le moteur multi-tâche de TURBO-Forth est de 
type Roud-Robin, c’est à dire similaire à celui uti- 
lisé dans un réseau à jeton. Toute tâche qui a le 
jeton s exécute jusqu’à ce qu’elle passe le jeton à 
la lâche suivante. Dans certains processus, ce sys- 
tème est plus efficace que le multi-tâche en temps 
partagé de Windows ou d’UNIX. 


DES OUTILS DE DEVELOPPEMENT 

Il va sans dire que TURBO-Forth est également 
très performant en mode mono-tâche. lF dispose 
d une palette d outils de développement et de mise 
au point particulièrement sophistiqués : 

- un débogueur traceur. Cet outil permet une 


mise au point en mode pas a pas ou continu de 
toute définition Forth, avec possibilité d’accès à 


l’interpréteur, reprise du traçage, abandon du tra- 
çage. 


- des fonctions DUMP et LD U MP pour per- 
mettre d inspecter le contenu de la mémoire intra 

et extra-segment. 

- une 1 onction SEE pour décompiler et désas- 
sembler les programmes écrits en Forth ou en as- 
sembleur. Cette 1 onction est complétée par une 

sous-fonction IDIS capable de désassembler toute 
routine d’interruption. 


La simplicité du langage FORTH permet de 
maitiiser et comprendre les mécanismes internes 
du PC. fl est particulièrement adapté au dévelop- 
pement d'applications dites ‘temps-réel’, c’est à 
dire nécessitant performance et compacité. 

Mais le langage FORTH est également utilisable 
dans une grande variété d’applications: 
graphisme, 

- intelligence artificielle, 

- télécommunications, 

- automation, robotique 




BLE. SCIENT1FIC FORTH, ed Mechum Banks) 
TURBO-Forth est livré avec ses sources. TURBO- 
Forth est écrit en TURBO-Forth et s’ auto -compile 
a 1 aide d un méta-compilateur. Si le programmeur 
dispose d un PC classique, il peut créer sans diffi- 


cultés une version personnalisée de TURBO-Forth. 

TURBO-FORFH ET L’ENVIRONNEMENT 
DU PORTFOLIO 


TURBO-Forth compile des fichiers source au for- 
mat ASCII. Ces fichiers sources peuvent être édi- 
tés avec l’éditeur intégré du Portfolio. Ils peuvent 
également provenir de fichiers utilisés sur PC. 
TURBO-Forth PORTFOLIO n’utilise aucune in- 
terruption spécifique du PORTFOLIO. Ses appli- 
cations sont donc portables vers tout environne- 
ment de type PC (version DOS 2.0 et suivants, 
équipés du processeur 8086 à 80486 et PENTIUM, 

NEC V20/V30) ou tout type de pocket compati- 
ble PC. 


un assembleur en notation RPN disposant de 
structrures de contrôle, possibilité de création de 
macro-instructions. Avec l’assembleur, toute fonc- 
tion est immédiatement utilisable par l’interpré- 
teur. Exemple: 

CODE 3 DU P (n-nn n) 
ax pop 

ax push ax push ax push 

NEXT END-CODE 

La nouvelle fonction 3DUPest utilisable di- 
rectement depuis l’interpréteur. 

UN LANGAGE DIDACTIQUE 
TURBO-Forth est livré avec deux manuels : 


TURBO-Forth PORTFOLIO est livré avec divers 
fichiers source d’exemples dont des fonctions gra- 
phiques. Ces fonctions permettent de tracer des 
points et segments de droite dans la limite des ca- 
pacités graphiques du PORTFOLIO. Des fonctions 
complémentaires permettent de mélanger texte et 
graphisme sous Forth. 

TURBO-Forth: 

- Taille mémoire requise: 32 Ko. Editeur MP7 


1 IJRRO- F ORTH est disponible chez MICRQCARDS 
au prix de 795F ttc sur disquette avec manuels. 
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TRANSFERT SHARP PC 31 00 

par Didier CESSES 

Lettre d’un utilisateur à propos du SHARP PC 3 100. 

Tout d’abord pour ce qui est de l’ergonomie générale de l’ap- 
pareil : rien que du bon ï le clavier, l’écran, le look et l’en- 
combrement sont impeccables. Pour la prise en main, le pro- 
gramme install permet une configuration correcte. (langue, 
date, clavier et autres options) Cependant les fichiers 
CONFIG.SYS et AU TOEXEC.BAT sont dans le disque vir- 
tuel D: ce qui permet de rajouter ce qu'on veut dedans comme 
dcvice driver, path) ...(voir plus loin sur DD.BIN), le disque 
c: étant protégé en écriture (ROM oblige). Ensuite quand on 
met en marche... on est très vite conlronté au problème des 
transmissions. J’avais avant le PC3 100 un Portfolio d’ ATARI 

qui communiquait via la prise parallèle avec mon PC sans 
aucun problème. 

Le sharp contient en ROM dans la directory \UTILS du dis- 
que c: deux utilitaires de communications de la famille 
LAPL1NK. Laplink lui même et un autre DD (?) (trois fi- 
chiers DD.EXE DD.BÏB et DDINSTAL.EXE) qui permet 
de prendre le contrôle des disques d'un autre PC... 

Le piemier problème a résoudre est celui de la connexion. 

Le câble Laplink n’est pas standard, il y a des ponts et des 
lils croisés. Donc deux solutions soit acheter, en plus des 
connections Shatp obligatoires, un câble LL, ou alors ache- 
ter des prises séries 9 et 25 femelles du câble, un plan et de 
quoi laire des soudures. Le Laplink fournit en ROM du Sharp 
contient une procédure d’aulo-inslallation sur l’ordinateur 
serveur, (grâce à la touche F10... je n'ai pas réussi à le taire 
fonctionner, j'ai eu le message «l’ordinateur ne répond pas» 

????) pour ma part j’ai ressorti une vieille version de LL ( 

V2.6a) que j ai installée sur mon 486, la configuration ne 
prend que quelques minutes. Attention les versions plus ré- 
centes ne fonctionnent pas avec le même câble. 

Et ô merveilles des merveilles j’ai pu recharger des fichiers 
à partir de 1 ordinateur de bureau sans aucun ennui. 

Deux remarques cependant: 

-Mes communications coûtent très cher en énergie, j’ai mis 
mes accus à genoux à plusieurs reprises en transférant diffé- 
rentes config de Works dos (version 2 qui fonctionne très 
bien au demeurant) et de Finesse, petit logiciel graphique de 
PAO sous OEM qui tourne (avec souris) sans aucun pro- 
blème. En fait, il faut bien regarder de positionner l’option 
faible consommation activée dans le menu Pop Up. et alors, 
la consommation est beaucoup moindre. 

-2- Les fichiers que j'avais sur P ATARI Port Folio sont com- 
plètement compatibles avec les Intégrés du Sharp; les fichiers 
textes c’est l'évidence mais aussi les feuilles de calcul et 
surtout les fichiers ADRESSE ( Bases de donnée) qui ré- 
pondent à la même logique d’enregistrement séparés uni- 
quement par une ligne vide (CR+LF pour les initiés), j’ai 
donc passé mes fichiers adresses directement des sauvegar- 
des du PF sur le Sharp via le PC. 



PC 


Autre partie importante: 

Le fichier DD.exe. qui permet de se servir des disques d’un 
autre ordinateur (le serveur), 

La aussi il faut le câble, et il faut Laplink qui marche pour 
transférer le trois fichiers DD.EXE DD.BIN et 
DD1NTAL.EXE sur ie PC serveur. 

ATI LNTIOX il y a pour certains d ri vers de souris des in- 
compatibilités importantes avec DD.BIN, qui peuvent aller 
au plantage complet. Donc si souris sur le sharp => analysez 
bien le driver. J’ai bricolé un bon moment pour réussir à 
laire marcher tout ça. C’est un peu sioux mais à terme on 

vient assez aisément à bout des différentes embûches qu’on 
rencontre. 

Première étape: Il faut recopier les trois DD*.* sur le disque 
E: et tromper l'écriture avec une commande ASSIGN C-D 
pour permettre les modifs du config.sys. Ensuite il faut lan- 
c er le programme DDINSTAL on obtient l’écran suivant: 

^ LapLink 

Device Driver (DD.BIN) installation program 
Version 3.00a Copyright (C) 1 987-89 Traveling Software, Inc, 
Device Window hotkey: ALT-D 

Printer: Lead Server 

Serial port: COM1 COM2 
DD.BIN path: \ 

Baud: 115200 

Server Sector S ize: 512bytes 


COMMANDS: Help Save Restore Uninstall Quit 


J 



pour le sharp c'est CQM I , le path (le lieu où on trouve) du 
fichier DD.BÏB c’est D:\ . 

Il laut ensuite laite la même opération pour ie serveur en 
veillant bien a ce que les tailles de secteurs (Serveur sector 
Size) soient identiques. 

Ensuite: Il faut lancer DD sur le serveur et taper ALT+D sur 
le Sharp on voit alors la config s’afficher qui vous dit que le 
disque A: du serveur correspond au disque F: sur le Sharp 
que le disque B: du serveur c’est le G: du sharp et ainsi de 
suite. Après <ESC> on peut accéder aux disques du ser- 
veur en tapant F: par exemple pour lire ou écrire sur le dis- 
que A: du PC serveur. 

En résumé, le bilan est de toute façon nettement positif. Quel 
fabuleux ordinateur que le Sharp PC 3100 ! 








Transfert PC 
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- Transfert Pt^^SHARP p£ 3100 





Materials: 

- Cables: 7 Corrcfucîora, 26 A WG. UL2464. DoiibFe Shieid, Gray 

Color, CircFe Dkameter ^5,-Jmm - B FL. 

- "D* Connecter 

DB- 25 S- 1 Û ipc 5 

DB-Oÿs-1 0 2 pc s 

Pbospbor Bronze with lOu Gotd Plaie on commet area, 

- Thumb&r âcraw: Groy Color - 6pcs. 

- Aluminium Label wrih "SHARP" logo - 1 pcs. 

“ Coppar Foil (For Fielding) - 6pcs' 


FIN CONNECTION TABLE 


P2 

PI 

P3 

DB-09S-10 

OB-25S-10 

DB-093-10 

PIN 2 

PIN 2 

P!N 3 

PIN 3 

PIN 3 

PIN 2 

PIN 6 

PIN 4 

PIN 7 

PIN 7 

PIN 6 

PIN a 

PIN 4 

PIN 6 

PIN 6 

PIN 5 

PIN 7 

PIN 5 

PIN 6 

PIN 20 

PIN 4 

SHIELD 

SHIELD 

SHIELD 


I 


i 


Vous remarquerez le bus d'extension à 80 


pins et les 2 connecteurs pour cartes PCMCIA à 68 pins. 


P / T P“JWUUi v 1 w iiiuin ■ rr <w« 


CN1 


PIN 

SIGNAL 

PIN 

’ signal 

1 

GND 

: 41 

GND 

2 

PAC IN 

42 

PAC1N 

3 

PAC IN 

43 

PAC1N 

4 

N. 

! 44 

_EXPPE 

& 

N. 

45 

JXP8V2 

B 

N. 

46 

JXPBV1 

1 7 


47 

K8C 

a 

EXPDET 

46 

KBD 

9 

GND 

49 

PACOUT 

10 

EA0 

I 

50 

PACOUT 

it 

EA1 

51 

PACOUT 

12 

EA2 

52 


13 

EÀ3 

53 

AIE 

14 

EA4 

54 

TC 

15 

EA5 

55 

DACK2 

16 

EA6 

56 

IRÛ3 

17 

EA7 

57 

inQ4 

te 

EAB 

58 

IFtQS 

19- 

EA8 

59 

iRQe 

20 

EAtO 

90 

IRQ? 

21 

EA11 

61 

ECLK 

22 

EA12 

62 

DACK0 i 

23 

eai3 

63 

DREQt ; 

24 

EA14 

64 

DACK1 

25 

EA15 

65 

DREÛ3 

26 

FAIS 

66 

DACK3 

27 

EA17 

87 

^ JR 

1 28 

EAia 

flfl 

_EW 

29 

EA19 

69 

^MR 

30 

AEN 

70 

MW 

A 

31 

EROY 

71 

TPI 

! 32 

EDO 

72 

TP2 

33 

EDI 

73 

TP3 1 

34 

ED2 

74 

TP4 

35 

ED3 

75 

DREQ2 

36 

ED4 

76 

GND 

37 

ED5 

77 

IRG2 

36 

ED6 

78 

GND 

39 

ED7 

79 

RESET 

40 

„IOC 

80 

SNO 


CN2 KEY 


PIN 

i SIGNAL 

PIN 

SIGNAL 

1 

KS0 

6 

KS5 

2 

KSI 

7 

KS6 

3 

KS2 

8 

U- 

4 

KS3 

_ _ 

9 

KSB 

5 

K&4 

10 

KS9 | 

CN3 KEY 


PIN 

SIGNAI 

PIN 

SIGNAL 

1 

m 

6 

KI5 

2 

Kll 

7 

K 16 

3 

KÎ2 

8 

K 17 

4 

KI3 

9 

Kl 8 

i 5 

KI4 

10 ; 

K 19 

CN4 

SPEAKER 


PIN 

signal 

PIN 

SIGNAL 

1 

SOUND 

2 

GND 

CN5 

STATJC LCD 


PIN 

SIGNAI 

PIN 

SIGNAL 

1 

SPCK 

4 ' 

CAP LOCK 

1 2 

CARDA 

5 

NUM LOCK 

3 

CARDB 

6 

SCLLÛCK 

CN6 

AC-ADAPTER 


PIN 

SIGNAL 

PIN 

SIGNAI 

1 

ACD 

3 

ACG2 

2 

ASG1 




CN7 SERIAL PORT 


PIN 

SIGNAL 

PIN 

SIGNAL 

T 

ie 

7 

13 

2 

i? 

8 

02 

3 

06 

9 

il 

4 

05 

10 

VCC 

5 

GND 

11 

GND 

6 

14 

12 

GND 


CN3 LCD 


PrN 

SIGNAL 

PIN 

SIGNAL 

1 

LF 

7 

_VEE 

2 

CPî 

8 

LCD0 

3 

GND 

9 

LCDl 

4 

CP2 

10 

LCD2 

6 

GND : 

11 

LCD3 

6 

VDO 

12 

" 


CN9 PARALLEIPORT 


PIN 

SIGNAL 

— 

PIN 

SIGNAL 

1 

STB 

11 

BU5Y 

2 

PDG 

12 

PE | 

3 

PDI 

13 

SLCT 

4 

PD2 

14 

AFO 

5 

PD3 

15 

ERROR 

6 

PD4 

16 

INET 

7 

PD5 

17 

SUN 

6 

PÜ6 

18 

GND 

9 

PD7 

19 

GND 

10 

ACK 

26 

GND 


CN10 


PIN 

SIGNAL 

T -1 — 
; PIN 

SIGNAL 

1 

GNÜ 

T “ — ■ 

35 

1 GND 

2 

JD 3 

36 

JBCD1 

3 

JD4 

37 

NC 

4 

JD5 

36 

NC 

5 

JD6 

39 

N.C 

6 

JD7 

40 

N,C 

7 

JCEOI 

41 

N.C 

S 

JAI 0 

42 

N.C 

9 

■ 

LU 

O 

—s 

1 

43 

N.C 

10 

. 

JA1 1 

f- ■ ■ ■ , .... 

44 

NC 

11 

JA9 

45 

N.C 

12 

JA8 

46 

JB 17 

13 

JAI 3 

47 

JBIG 

14 

JA14 

48 

JB19 

15 

JWE 

49 

JB20 

16 

w.c 

50 

JB21 

17 

JBVCC 

51 

| jevcc 

ta 

J8VPP 

52 ; 

JBVPP 

19 

JAI 6 

53 

JB22 

20 

JAI 5 

54 

JB23 

21 

JAI 2 

55 

JB24 

22 

JA7 

56 

JB2S 

23 

JA6 

57 

N.C 

_£Lj 

JA 5 

58 

N.C i' 

25 

JA4 

59 

NC 

26 

JA3 

60 

N.C 

27 

JAÎ 

61 

JRGO 

26 

JAI 

62 

JBV 

29 

J AO 

63 

JBV 

30 

JD0 

64 

N.C 

JU 

JDI 

65 

N.C 

32 

JD 2 

SB 

NC 

33 

J0WP 

67 

J0CO2 

34 

GND 

68 ; 

GND 


CN11 


PIN 

signal 

PIN 

j SIGNAL 

1 

GND 

35 

GND 

2 

JD3 

36 

JACD1 

3 

JD4 

37 

N.C 

4 

JD5 

38 

N.C 

5 

JD6 

39 

NC 

6 

JD7 

40 

N.C 

7 

JCEOI 

41 

N.C 

8 

JAI D 

42 

N.C 

9 

JOE 

43 

N.C 

10 

JA 11 

44 

■ W..-- 

N.C 

U 

JA9 

45 

N.C 

12 

JA& 

46 

JAI 7 

*• 

13 

JAT3 

47 

JA 18 

14 

JAI 4 

48 

JAI & 

1S 

_JWE 

49 

JA20 ' 

16 

N.C 

5Q 

JA21 

17 

JAVCC 

51 

JAVCC 

te 

JAVPP 

52 

JAVPP 

19 i 

JA 16 

53 

JA22 

; 20 

JAIS 

54 

JA23 

21 

JA12 

55 

JA24 

22 

JA7 

56 

JA25 

23 

JA6 

57 

N.C 

24 

JAS 

56 

N.C 

25 

JA4 

59 

N.C 

26 

JA3 

60 

N.C 

27 

JA2 

61 

JRGO 

28 

JAI 

62 I 

JAV 

29 

JAÛ 

63 

JAV 

30 

JDÜ 

64 

N.C 

31 

JDI 

65 

N.C 

32 

JD2 

66 

N.C 

i 33 

JAWP 

67 : 

JACD2 

34 

GNÜ 

68 

GND 


* 



SHARP PCE500 

quelques informations sur l'interface de communication 

par Pierre MARTIN 


Voici la liste des diférents signaux ainsi que leurs fonctions respectives . La communication entre le Sharp et 
les autres ordinateurs devraient être facilité pour beaucoup d'utilisateurs. Nous rappelons à nos lecteurs 
que , en théorie seuls 3 fds suffisent pour communiquer : Un fil d'émission , un fil de réception et un fil de 
masse. Dans la pratique , les autres signaux sont utilisés notamment afin de vérification de transferts. 


Pin 

number 

Signai name 

Symbol 

Signal direction 

Funcüons 

2 

Send Data 

SD (prf» Output 

Data signal to be sent 

3 

Receive Data. 

a&ftxe) input 

Receiving data signai 

4 

Request to Send 

RS 

(RTS) 

Output 

This signai become High level 
by data transmission and low 
level by transmission end. 

5 

Clear to Send 

CS 

(CTS) 

Input 

When data is sent, transmis- 
sion is executed if this signal is 
in high level, and is stopped if 
the signal is in low level. 

7 

Signal Ground 

SG 


Adjust the reference electric 
potential between input/output 
devices. 

8 

Carrier Detect 

CD 

lnput 

Transmission is executed 
when this signal is in high level 
and is stopped when the signal 
is în low level. 

11 

Receive Ready 

RR 

Output 

High level when réception is 
possible and low level when 
réception is impossible. 

14 

Equipment 

Ready 

ER 

(DTR) 

Output 

When serial input/output device 
circuit is open (if executed 
OPEN command), signal be- 
cornes high level. 

1 

Frame ground 

FG 


Grounding for maintenance 

10 

13 


VC 


r 

Supply voltage 


Notes 1) High level means voltage level of VC* Low levei means voftage fevel of SG. 

2) As the inside is composed of C-MOS parts , if voltage exceeding permissible 
range (voltage level between SG*VC) is given io input/output ptn , the inside 
may be broken . 


Dans un prochain numéro, nous aborderons l'étude et la fonction de chaque registre composant l'architecture 
interne du Sharp ; tels que ceux qui intéressent la mémoire Ram, le clavier, l'écran ou î’uart. 




LIVRES... 


LIVRES- 


LIVRES... 


LIVRES... 


Im collection «Calculatrices Efficaces» de Dunod 

Depuis le début de l'année 1991, les éditions Dunod développent la collection «Calculatrices Efficaces». Une vingtaine de titres 
traitent de l utilisation de toutes les calculatrices graphiques disponibles. Cette collection s'adresse à tous les utilisateurs de 
calculatrices graphiques , le lycéen , l'étudiant et le développeur trouveront leur bonheur dans des livres abordant les sujets qui les 
passionnent : utilisation scolaire de la calculatrice , initiation à la programmation, programmation avancée, recueil de program- 
mes, trucs et astuces, etc. Les auteurs savent de quoi ils parlent puisqu'ils sont à la fois utilisateurs quotidiens de calculatrices et 
spécialistes d'un domaine d'applications. 


Très dynamique, cette col- 
lection accueillent des pe- 
tits nouveaux pour la ren- 
trée 93 : 

- «Casio fx : faites vos jeux 
!», en 224 pages, vous trou- 
verez les listings des 
meilleurs jeux shareware 
disponibles sur Casio fx. 


P 

? faites vos jeux ! 

Loïc Fieux 




- «Sharp EL 9200/ 
9300 : faites vos jeux !», 
en 160 pages, tous les 
meilleurs jeux adaptés 
aux sérieuses graphi- 
ques de Sharp, 

- «Votre fx6800G», en 
192 pages, tout ce qu’il 
faut savoir pour exploi- 
ter au mieux votre fx 
6800G dans le cadre 
d’une utilisation ty- 
céenne. 


Sharp el 

faites vos jeux ! 


Loïc Fieux 



Transformez 
fo È re calculatrice 
Sharp EL 
en console de jeu 
+ bonus ; 
les meilleurs jeux 
jirêfs à l'emploi ! 


i )unoi )iiasteî ; 


NOUVEAUTES POUR LA HP 48 


1) Apres le succès du "Voyage au centre de la 
HP48SX, Paul GOURBIS réédite et sort "Voyage au 
centre de la HP48GX". Le must de ce qu’il faut 

savoir sur cette fabuleuse calculatrice î 


2) Le livre Top Niveau" pour les programmeurs 
acharnés î (directement depuis les US) 

"ADVANCED USER'S REFERENCE MANUAL" 

à ne pas mettre entre toutes les mains ! 




HEWLETT 

PACKARD 


HP 48G Sériés 

Advanced User s 
Reference Manual 
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SUITE DU NUMERO 1 SUR 
LE GRAPHISME DU HP 95LX 

prototypes des fonctions incluses dans grafx95.c 


void 


mit 


void exitgraph(void); 


U ^.GRAPHISME^KKKU^élf^P^ S|R^f 

void get_graph info(GRAPHINF095 *graphinfo) 

{ 

int seg, off; 

seg = FP SEG((void far *) graphinfo); 
off = FP_OFF((void far *) graphinfo); 


void get_graph_info(GRAPHINF095 * graphinfo); 
void set_logorigin(int x, inl y); 

void set_clip_region(int left, int top, int right, int bottom); 

void move_pen(int x, int y); 

void set_color(char color); 

void set_ruîe(c]iar rule); 

void set_line_type(int type); 

void set_fill_mask(char *musk); 

void plot(int x, int y); 

int get_pixel(int x, int y); 

void draw_line-(int x_ dest, int y_dest); 

void draw_rectangle(int x_dest, int y dest, char fi 1 l_ty pe) ; 

void getJmage(IMAGE *image, int x, int y, int nb_eols, int nb fines); 

void put_image(IMÂGE *image, int x, int y, int invert, int rule); 

void write_text(int x, int y, char *text, int rotate_flag); 

#endif 


asm mov ah,02h 
asm mov es, seg 
asm mov di.off 
asm int 5fh 

} 


SET_ LOGORIGIN : positionnement de l'origine logique 
Entrées : x, y = coordonées de la nouvelle origine logique 
Valeur retournée : Aucune 


void set iogorigin(int x, int y) 

{ 

asm mov ah,03h 
asm mov cx,x 
asm mov dx,y 
asm int 5fh 

} 


GRAFX95.C Version 1.01 
Fonctions graphiques pour le H P95 
Création : 25/02/93 Auteur : Jacques Belin 

(PPC Paris #123) 

Dernière modification : Correction bug sur inversion params 
get_imag() 

Note : Développé et testé uniquement sur Turbo C++ 1.01 
TASM nécessaire (pour l’assemblage en ligne de grafx95.c) 

#include “grafx95.h” 

#pragma inline autorisation assemblage en ligne 

INIT GRAPH : Positionnement du HP95 en mode graphique 

Entrées : Aucune 

Valeur retournée : Aucune 


void init_graph(void) 

{ 

asm mov ax,00h 
asm mov ahOAOh 
asm int 5fh 

} 


EXIT GRAPH : Retour en mode texte 

Entrées : Aucune 
Valeur retournée : Aucune 


void exit_graph(void) 

{ 

asm mov ah,00h 
asm mov al, 7 
asm int 1 0h 

} 


GET GRAPH INFO : Lecture de la table d entrée vidéo 

Entrées : graphinfo = pointeur sur la table d’entrée 
Sortie : graphinfo initialisé 
Valeur retournée : Aucune 


SET CLIP REGION ; Positionnement de la fenêtre de travail 
Entrées : left, top = coordonées du coin supérieur gauche 
right, bottom = coordonées du coin inférieur droit 
Valeur retournée : Aucune 


void set clip_region(int left, int top, int right, int bottom) 

{ 

asm mov ah,04h 
asm mov ex. left 
asm mov dx,top 
asm mov si, right 
asm mov di, bottom 
asm int 5fh 

} 


MOVE PEN : Positionne le curseur graphique 
Entrées : x, y = coordonées du point 
Valeur retournée : Aucune 


void move_pen(int x, int y) 

{ 

asm mov ah,08h 
asm mov cx,x 
asm mov dx,y 
asm int 5fh 

) 


SET COLOR : sélection de la couleur courante 
Entrées : color = nouvelle couleur (1 :Noir, 0:B!anc) 
Valeur retournée : Aucune 


void set coior(char color) 

{ 

asm mov an.09h 
asm mov al. color 
asm int 5fh 

} 


SET RULE : Sélection de la loi de remplacement 

Entrées : rule = loi de remplacement (FORCE, AND, OR, XOR) 

Valeur retournée : Aucune 
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POCHE COMPUTERS N°2 







void set_rule(char rule) 

{ 

asm mov ah,0ah 
asm mov al, rule 
asm int 5fh 

} 


SET_LINE_TYPE : sélection de l’aspect des lignes 
Entrées : type = aspect de la ligne (sur 16 bits) 
Valeur retournée : Aucune 


void setjine type(int type) 

{ 

asm mov ah,0bh 
asm mov ex, type 
asm int 5fh 

} 


GRAPHISME j^]HP95&; |^|M§pj^HP95 

void draw line(int x_dest, int y_dest) 

{ 

asm mov ah,06h 
asm mov cx,x_dest 
asm mov dx,y_dest 
asm int 5fh 

} 


DRAWRECTANGLE : tracé d’un rectangle à partir de la position 
courante du curseur, tenant compte de la couleur et de la loi de 
remplacement courante. 

Entrées : x_dest, y_dest = coordonnées du coin de fin 
filljype = Type de tracé 

OUTLINE = tracé d'un cadre, utilisant le type de ligne courant. 
SOLID = Tracé d un rectangle plein, utilisant la couleur courante 
PATERN = Tracé d'un haeburage, tenant compte du masque 
courant 

Utilise : couleur, type de ligne, masque de remplissage et loi de 
remplacement courantes 
Valeur retournée : Aucune 


SET_FILL_ ..MASK : Sélection du masque de remplissage 
Entrées : mask = pointeur sur le masque de remplissage {8 octets) 
i Valeur retournée : Aucune 


void setjill mask(char *mask) 

{ 

int seg, off; 

seg = FP SEG(mask); 

off = FP_OFF(mask); 
asm mov ah ,01 h 
asm mov es, seg 
asm mov di.off 
asm int 5fh 

} 

PLOT : Affiche un pixel 
Entrées : x, y =coordonées du point 
Utilise : couleur courante 
Valeur retournée : Aucune 


void plot(int x, int y) 

{ 

asm mov ah,07h 
asm mov cx,x 
asm mov dx,y 
asm int 5fh 

} 


GET PIXEL ; Lecture de la couleur d'un pixel 

Entrées : x, y =coordonées du point 

Valeur retournée : couleur = 1-> Noir, 0->Blanc 


int get_pixel(int x, int y) 

{ 

asm mov ah,0ch 
asm mov cx,x 
asm mov dx,y 
asm int 5fh 
returnJAX); 

} 


DRAWJJNE : tracé d'une ligne à partir du point courant 
Entrées : x dest y dest = coordonées du point terminai 

Utilise : couleur, type de ligne et loi de remplacement courantes 
| Valeur retournée : Aucune 

! 


void draw rectangle(int x dest. int y_dest, char fill type) 

{ 

asm mov ah,Q5h 
asm mov cx,x_dest 
asm mov dx,y_dest 
asm mov al, filljype 
asm int 5fh 

} 


GETJMAGE : Lecture d une zone graphique dans un buffer 
Entrées : image = pointeur sur un buffer image 

x, y = coordonnées du coin supérieur gauche de l’image 
nb_cois = nombre de colonnes de l’image 
nb lines = nombre de lignes de l'image 
Sortie : buffer image initialisé 
Valeur retournée : Aucune 

NOTE IMPORTANTE : Turbo C utilisant le registre BP pour la 
pile des paramètres, il est nécessaire de le sauvegarder avant 
de l'utliser pour l x1’. L interruption 5F semblant restituer l’intégra- 
lité des registres après exécution, j’ai utilisé BX pour la sauve- I 
garde. Prions pour que HP ne change rien dans le futur ! 

void getjmage( IMAGE *image, int x, int y, int nb_co!s, int nb lines) 

{ 

int seg, off; 
int xi, yl ; 

xi = x+nb_cols-1 ; 

yl = y+nb lines-1 ; 

seg = FP_SEG((void far *) image); 

off = FP OFF((void far *} image); 


asm 

mov 

ah.Odh 

j* 


asm 

mov 

cx,x 


asm 

mov 

dx,y 


asm 

mov 

es, seg 


asm 

mov 

di,off 


asm 

mov 

si.xl 


asm 

mov 

bx,bp 

sauvegarde de BP dans BX 

asm 

mov 

bp,y1 


asm 

int 5fh 


asm 

mov 

bp,bx 

restitution de BP 

* 
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PETITES ANNONCES GRATUITES... 

(maxi 150 caractères ou espaces) 


Les petites annonces sont publiées sous rentière responsabilité de leur auteur. Nous nous réservons le 
droit de ne pas publier certaines petites annonces n ' ayant aucune relation directe ou indirecte avec les 
micros de poche ou les calculatrices. 



fourgonnette type 4L 14, ou ordinateur de po- 


Vends Portfolio + interface parallèle + Docs état 
neuf : 1150F Pierre tel HB 61.41.68.68 Dom 
62.12.48.17 

VDS Portfolio 5I2K + Pack-Alun + Interface 
parallèle + câble liaison + carte ram 128K + 
PBASE 

Prix à débattre / tel 35 80 22 86 

VOS Portfolio + BEE CARD 128K + 32K 
1500F tel 69 46 23 31 avant 1911 
Région Paris (9 1 ) 

VDS Portfolio 5 1 2KO + Interface parallèle pour 
imprimante et PC : 1500F 
Alain au 64 59 83 57 Après 20 H 

VDS HP41 CV + Moduletime + 
Modulexfunctions + 2 Module SX Memory + 
Lee Cartes + Imprimante 1000F tél 95 51 51 
60 HB ou 95 21 82 19 après 18 H 

Achète pour HP48GX câble liaison minitel et 
BBTPH. Achète tous jeux en assembleur sur 
disquette, tél 48 60 82 74 / Pharn Vien 2 1 , Rue 
Charcot 93420 VILLEPINTE 

VDS Quademo Olivetti DD20 CG A Neuf 
3000F + Interlace 8 sorties / 4 entrées + Log 
500F portable XI écran CGA 500F Mr 
Douguet 8 Bd F. Blancho Nantes 44200 

VDS Atari STF 512 + 512 RAM + LECT Dou- 
ble face + 2 Jov + 200 Disk + Ext 5 1 2 à monter 
+ Souris / Faire offre + Oric Atmos + écran + 
Ilebdogiciels (30) 
tél (1)39 58 03 35 . Bruno 

VDS Casio FX 8000 / 200F 

Sharp EL 9300 / 800F, Casio FX850P / 800F 

Yannick tel 48 85 62 01 

VDS Portfolio 256K Packalim + 3 cartes RAM 
+ 2 cartes ROM + 1 Interface Parallèle + I lotisse 
/ 2500F { à débattre ) 

Mr Roger/ tél (1) 39 54 53 41 

VDS IIP 48S Garantie / 6 Mois / 600F 

tél ( 1) 30 43 79 23 Après 1.8H Mr Morgant P. 4 

Rue Marguerite Beruoets 

78280 GUYANCOURT. 

VDS ATARI STF 5 1 2K + 5 1 2K Ram + Lecteur 
Disk DF + Souris neuve + 120 Disks + 2 
Joysticks + Accessoires livres ORIC ATMOS + 
écran / Faire d ire pour chacun ou l’ensemble. 
Bas prix. Ou échange possible contre voiture 


chc type PSION. Demander Bruno au ( 1 ) 39 58 
03 35 

Etudie toutes propositions. 

VDS Organiser 11 Psion modèle LZ ( 4 lignes 
LCD ) avec doc / état neuf / 500F. tel 43 93 57 
30 ( laisser message sî répondeur) 

VDS Super jeux pr Casio FX / 8800 / 8500 / 
7800 Demander liste + 2 Progs gratuits à: 

T. Lebrun, 24 Rue Turenne 38000 Grenoble 
tél 76 87 57 81 

VDS Casio FX 880 + Listings { jeux, utils ) + 
Fixtcnsion 32 KO + Manuel et boîte d'orieine / 
Le tout en très bon état / 950F 
tél 99 62 1 5 3 1 

VDS Canon X-07 i Extension 8K + Program- 
mes + Schéma Interfaces + Docs Assembleur/ 
4501 Contacter Tanguy tél 99 62 15 31 / 
Echange Progs sur 880P 

VDS I IP 28S neuve + Doc + Livre / 400F à dé- 
battre 

Cherche contact sur 1 IP 28 et 48 
tél 99 81 56 04 le Week-End 

Achète toutes revues, livres, matériel ou logi- 
ciels concernant le Z88 / Recherche particuliè- 
rement sa revue technique et un club existant 
en France ou en Angleterre. 

Achète imprimante matricielle 9 aiguilles avec 
interface série et parallèle à bas prix.. Thierry 


PEYCRU ESSA 147, cours de la Marne 33998 
BORDEAUX-ARMEES. tel:56.91 .42.97 (heu- 
res des repas). 

Collectionneur ach. Cale. Programmable tou- 
tes marques ou Pocket / Cherche contact Ca- 
non XÜ7 et ses péri fs. 

P. Alex 3PL Hildeshcim Apt 29 / 16000 AN- 
GOULEME. tél :45 65 39 11 

VDS Atari Portfolio 512KO + ACC SAUV, 
Carte Ram 256, 3 Rom 256 KO, Interface pa- 
rallèle, Housse cuir, Accus, Câbles / Garantie 5 
Mois / Prix / 3900F / tél:38 64 63 82. 
DELA B ROUILLE Laurent. 

VDS 1185, Cale Graph 1500 fonct 32KO, 
Câble, Nbr progs, TB K, Garantie 1 An / 650F 
à débattre / tél:47.75.32.95aprèsl8H; 

VDS Foliolink, Liaison Atari Portfolio / Prix 
à débattre / VDS carte Vidéo Trident SVGA 
TBE / 300F / tél :( I ) 48.50.79.65 

VDS Psion Sériés 3 256KO Ss Garantie 1500F 
+ Traducteur / 300F + 3 Banque 250F + Jeux 
200F, Emmanuel FAR! U 75, rue J. Labourbe 
37700 St PIERRE DES CORPS. tel:47.32.07.4! 

Achète Pockets, (sub) notebooks, ordis vieux et 
«rares»... 

tél:( 1)47.80.87. 14 / Olivier. 

-P 

VDS IIP 95 LX 5 12K :2000F. tel: 
(1)60.20.06.85 
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LES PETITES ANNONCES GRAipITES^ LES PETITES ANNONCES GRATUITES - LES 


VOS SHARP PC-E500 + interface K.7 + PRG: 
éditeur de textes et dessins: 1000F. Matthieu 
GIRAUD 42, rue H. Barbusse 75005 PARIS. 
tel:( 1)43. 54.6 1.45 

VUS SHARP PC-E500, avec carte mémoire de 
64 KO. Servi un an. Livré dans emballage d’ori- 
gine: I500F. 

Demander Franck le soir après I9H30 au (1) 
46.80.45.24. 

Cherche contacts PORTFOLIO pour échange 
logiciels, etc... Ici: 88.95.64.14. 

VOS HP 48S + HP 48 en Prépa : 700F + port. 
Casio fx 7700G + Manuel de la fx 8500G : 
300F port compris. Tout en TBE. Tel: 
80.66.88.92 (après 19H30). Olivier Depin, 21 
Dijon. 

VDS SHARP PCE500: 1300F, ext.64 K:900F, 
cxt.32 K :700F, ext. 256 K: 1500F. Casio FX 
7500: 250F. Tel: 47.73.65.14 Bruno PIERRE, 
92 Puteaux. 

Calculatrice scientifique graphique, calcul 
symbolique, HP 28 S +- doc et emballage d’ori- 
gine, peu servi: 800F port compris. Tel: 
41.43.49.13. Jean Louis PARE, 49 St Sylvain. 

VDS Casio I X 180 P 32 KO + nombreux pro- 
grammes (jeux, sciences, «ms-dos», gestion du 
mémo). Prix: 700F Tél: 

38.5 1 .26.58. MARMfSSOLLE Damien, Or- 
léans 

VDS Organiseur Casio SFR20 256 K, tableur 
inclus (cause double emploi) + Olivetti DI 000 
34 K. "Tél: 87.80.36.99. Philippe Montier, 57 
Marange (visible Paris). 

Echange FX 7800 Gc 1 BE avec nombreux pro- 
grammes, jeux et utils contre TI 82 ou Tl 85 f 
piles. Julien BABIN, Les Blanchards de 
Pouthume, 86100 Chate Hérault. 

VDS calculatrice HP 48 SX (sous garantie)+ 
carte d extension 32 Ko + 2 livres de program- 
mation: 1100F. Tel: 30.44.27.73. 

(répondeur). Erwan Prioul, 78 Guyancourt. 


VDS, éch., ach. programmes (maths) pour TI- 
85, sur Paris. Tel: 47.98.25.73 (après 19H). 
Rodolphe Docquois, 75 Paris. 

V DS I IP 48 SX : 1 300F à débattre (port inclus). 
Tel: 55.37.05.89. 

Christophe Hoëppe, 87 Limoges. 

VDS 1 1-85 (déc. 92), TBE, piles neuves : 850F 
à débattre, port compris.Jerome Cardoso. St 
Christophe Le Jajolet, 61570 Mortrée. 

VDS calculatrice graphique TI-81 avec matrice 
6x6 et mémoire 2400 bytes: 200F maxi. Cher- 
che 11-85 (700F maxi). Tel: 93.56.75.39. Lau- 
rent Cabiac, 06 Nice. 

VDS calculatrice graphique programmable 
Casio FX 7000 GA, 422 bytes + manuel + pi- 
les neuves: 250F à débattre. Tel: 58.56.16.60. 
(1 8h à 21 h). Heu Tcha, 40 Dax. 

VDS calculatrice scientifique graphique HP 
28S avec doc. et emballage d’origine: 800F. Tel: 
64.05.41.34. Christian Lefevre 
77 Brie Comte Robert. 

VDS Casio PB 1000: ordi-poche 40 K, écran 
graphique tactile, Basic / Assembleur / Data 
Bank- fichiers, 850F. Interfaces parallèle ! sé- 
rie / bande magnét. Tel: 46.7 1 .24.8 1 . 

VDS Psion 3 256, tableur + housse de cuir, -50 
% facture Microcards. 

Portfolio 256 Ko, interface parallèle + câble. 
Etat neuf; sous garantie jusqu’au 03/94. -60 % 
tarif Microcards. 

Houdry Paul, 51490 Bcine. Tel: 26.03.20.13 et 
26.03.27.67. 

VDS Psion LZ 64 avec manuel de programma- 
tion: 850F. Mme FUOR 63, rue des Plantes 
75014 PARIS. (1) 45.43.26.16. 

VDS calculatrice FX 795 P + programmes + 
jeux + matrices 9X9 + 16K + lang. basic dx: 
500F. Tel: 74.01.74.33. (Rhône). Raphaël. 

VDS Portfolio état neuf, avec: Ram étendue 
384KO, port parallèle, modem + coupleur 


acoustique + soft minitel, cartes: RAM 64KO, 
cardram 256KO,cardrom 128 KO avec utilitai- 
res, câble + soft liaison PC, étui de rangement 
avec poches, prix: 2200F, 

Tel (I IB): ( 1 )49. 56.59.4 1 . M. CHENOT. 

VDS ATARI PORTFOLIO de juin 1992, par- 
lai! état, prix: 990F. Beecard I28KO pleine de 
freeware pour Portfolio, prix: 450F. Interface 
parallèle avec logiciel de transfert et câble pour 
compatible P.C. : 550F. Interface parallèle et 
Modem, livré avec coupleur acoustique, ému- 
lation Minitel mode V23, livré avec logiciel 
d'émulation en ROM prix: 750F, 
MONCOIFFET tél 99.38.28.26 

Vends cal. HP48SX 1000F TBE sous garantie 
+ logiciel et câble de liaison PC iél 45.86.34. 1 5 
PARIS (Benjamin) après I8h 

Vds Psion series3 256K avec tableur. Prix très 
intéressant. Vincent LEGROS (1) 43.65.43.48 

Vds Portlolio Bios 1.130 avec Packalim + 
transfert Mac + interface série et parallèle + 
étui. Prix à débattre. PIGEYRE (1)69.38.07.79 

Vends 1 CASIO FX 702P (400F) + 1 CASIO 
FX 7000G (200F), comme neuves. Laurent (1 ) 
39.14.72.61 

Vds SHARP PC 1600 (programmable en basic) 
+ manuel 600F. TOORES Stéphane. 
68.20.18.49. 18, impasse du Pla 11500 

QUILLAN. 

Vends FA80 pour 8500g avec les 2 câbles et 
4K7 de jeux. 500F. 35.97.47.92. le soir. 

Vds FX880P + FA6+ cordon imprimante. 
1200F tel 54.01.12.96. 

Vds Organiser CASIO SF 9500 état neuf. 800F 
(prix neuf 1800). tél 73.39.50.10 

Vds FX 8800gc : 490F, garantie encore 8 mois, 
tél : 83.64.46.42. 

Vds FX 8800G. 350F tél (i ) 34.66.02.49. 
demander Sébastien 



Le . . / . . / 1993 

Placez ici votre texte d’ 


Bon à découper, à recopier ou à photocopier. 

annonce, 1 caractère ou espace par case. N’oubliez pas vos coordonnées î 
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POCHE COMPUTERS N°1 
Vous pouvez l'obtenir directement chez nous 
pour 35F + 4F de port (35F+ 10F de port hors de France) 




n 




N 



Transmit PC <—> 
„ U Pocket P 


Ammahon suffi 


L'assemi 


■■ .rltvez éüI : 


Cortf>ar 
Le Psion, sériés 3 j 


vÿà^ssm 


g*fe 

SHSfel: 


Vous aimez ce magazine ? Vous voulez le retrouver à chaque numéro, de plus en plus intéressant ? 
Oui !!!, alors agissez ! abonnez-vous, c'est le meilleur moyen de nous aider efficacement 


BULLETIN D'ABONNEMENT à POCHE COMPUTERS 

(à recopier, ou à photocopier ou à découper et à expédier à 

POCHE COMPUTERS - 42220 - BURDIGNES - FRANCE) 


/ M. Prénom 

Adresse.... Code Postal ....Ville. 

Profession (facultatif) Tel Société 

Je possède ou un ordinateur ou une calculatrice de marque ... 

Je suis intéressé surtout par tels ou tels produits ... 

| I Oui, je désire m’abonner pour 6 numéros à POCHE COMPUTERS à partir du numéro Q et je règle par 
chèque la somme de 180F (215F hors de France ; règlement par mandat postal uniquement). J’ai bien noté que 
je recevrai chaque numéro chez moi quelques jours avant sa parution en kiosque, en franco de port. 

Q Je ne désire qu’un ou plusieurs numéros : N° | 11 1 M 1 I et je règle la somme de 35F par numéro 
demandé + 4F de port. (35F + 10F de port hors de France ; règlement par mandat postal uniquement) 

Vous pouvez obtenir également le numéro 1 (paru fin septembre 1993) au prix de 35F + 4F de port. 

Indiquez ici, vos impressions concernant POCHE COMPUTERS . Soyez assurés aue l’on vous lira avec attention. 
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DESIGNATION 


MICROCARDS 

Le spécialiste du pocket et de la calculatrice 
(vente - fabrication - réparations) 

TARIF TTC au 15 décembre 1993 

Ce tarif remplace et annule les précédents 


SHAR P P C 3100 2MB 


Prix U Nb Total 


Lecteur de disq uettes 1 ,44MB 
A limentation secte ur i jr npèFe 
Ali m ent ation a llume-cigares 
Ad aptateur sérieT — 



3990F 

2495F 


parallèle 


Jâble laplink (transfert PC et MAC) 
Accus 1200mA 
^par 3 


255F 



j P ar 6 Ppur lecteur d e disq uettes 
Ëtjji de pro tectio n cuir 

Etui de protectjonjoiië matelassée 
Pa cka l i mentatio n (alim secteur + 
chargeur interne + 3 a ccu s 120b mÀT 
^ a üt e mémoire : voir en bas de page 


129F 

240F 

395F 


295F 


Hewlett Packard 

r " 


P48GX 

l—BII ..... u 

artes mémoire ram pour 48S)GGX 
48HP128 (128K) “ 


380F 


2150F 


4 8HP256 (2x1 28K) 


h 48HF^512(4xÏ28K) 

HP95LX512K “ “ “ 

HP95LX 1MB — 

PACK 512K pour HP95LX 512K 
(augmente la mémoire de votre HP95 de 
S12Kà 1MB ; nécessite l'envoi du HP95) 

HP 1 00LX “ 

LP n ^ e ^SMu^s^ieÿajai lèje 

Cartes mémoirePCMCIA 
Ram128K 

Ram 256K " “ " 

Ram512K 


495F 


Ë 


830F 

1350F" 

2920F 

3990F 


1150F 

632ÔF 


Ram l MB " “ ' “ ” - 

RAM 2 MB 

Cart e traduc teur Français- Anglais 
Carte FAX-MODEM PC MCIA i n 


660F 


490F 

690F 


950F 

1590F 


SHARP PCE500 — ~ 

carte mé moi re 1 28K (sau vegardée) 
[carte mémo ire 2 5 6 K (sauvegardée) 


2690F 

1420F 

1760F 


ï> 


SION sériés 3/3a 


Lecteur de disquet tes pour a ou 3a 

4noi/ /£_ 'a, _ _ ■ / — 


Pack 1 28K (fa it passer la mémoire à 

256K de votre PSION 128K ; nécessite 
l'envoi du PSION) 


495F 

690F 


3590F 

360F 


SOUS total A 


Port cnlissimo + assurance : 

Pour une valeur de 1500, 00F - > 45 F 

Pour une valeur de 4000,00F - > 60F 

Vu delà, 45F/ou 60F par tranche de 15G0F/4000F 
Supplément pour chronopost : + 110F 


TOTAL GENERAL (sous total A + sous total li + port) 


DESI GNAT ION 


Prix IJ 


'SION sériés 3a 256K 
SiONseries 3a 51 2K 
jSSD RAM 1 28K 
SSD RAM 51 2K 
SSD RAM 1MB 
SSDFLASH 128K 
SSD FLA SH 51 2K 
SSDFLASH 1 MB 
iSD FLASH 2MB 
■iais on série pour PC 
■iaison série pour MAC 
Liaison parallèle 


790F 


ATA RI PORTFOLIO 
ORTFOLIO 128K 
ORTFOLiO 256K - 
ORTF OLIO 51 2K 
fardram 128K 
ïardram 256K 
'ar dram 5 1 2K 
îardram 1 MB 
ÏMI 2 56K 
P 384K 
■Ml 51 2K 

itu[ de protection 

lanuel technique et développement 
[1 50 page s) 

_ ac k a ■jmentatiofriJÔOmA 


1690F 
2990F 
520F 
1290F 
2290F 
2990F 
790F 
790F 
440F 


1690F 


1990F 


2510F 


495F 
690F 
960F 
1490F 
520F 
790F 
980F 


295F 

250F 



Al imentatio n de sauvegarde 

fl Uta. JL _ — . . M » \ r ‘ ' 


420F 


rtierf ace jpa ra lièie 
Interface série 
râble interface PC 
'âble interface imprimante 
lom 1.130 
'BASIC 

'AT HS PF SOLVËR 
iestion familiale 


245F 


520F 

80F" 


80F 


.econtrôleur 
Jeuxl 
Jeux2 


370F 

470F 

380F 

490F 


590F 


380F 




380F 


380F 


ac Folio 


— • 

J ra nsfert SJ <>’PortfoÏÏo 
Turbo-Forth 


380F 

380F 

380F 


380F 


sous total B 


Mme/M :NOM 
Adresse 



* 


* 


,TI ; FAX 

Je possède un ordinateur de m arque type 

a régler par chèque ou mandat carte 7 Date le ~J .... / 1993 


MICROCARDS - 42220 BURDIGNES cedex - Tel 77.39.68. 1 1 Fax 77 io rn 

>us nos articles -Venle par corresnondaiRe exclusivement . . .. . * " 77. JM. 19.60 


- ,,,us ~ — — — - • ~ - - » 9 - 6M 

i J -it *i I "Il - document non contractuel 



HASH-PET' 2001 

par A.LABURTHE 



On «xapeUc Js 
exponentielle^ 

knjtxJ « en, reti 

de, J«C 


£-A HA^w-prrf 
loo-t t elle &; 
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«le. xioüS 
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SERIE PC -3000 


ORDINATEURS 

PERSONNELS 



Gestionnaire d’informations Personnelles 




( arncs d adresses personnel cî pentes s ion ne! 


mploi du temps jon ma fier avec alarme 


K Traitement de textes pot 
organisation de rappris 


MH» 


* ‘ 


les données 


res avec mémoire 


reau 


priorites fxiur organisation des lâches 


Configuration du Système 


Unité centrale 


60C88A 
(10 MHz) 


nnecîeu 1 ' pou 


a rie mémoire JC 


t*çîeüf pour carte rnétnoire IC 


If Parallèle 
(Centronics) 


Clavier 


Connecteur 
Extension Bus 


Options fournis 


HARP 


Options fournies par une tierce partie 



ROM 

BIOS 

GIP 


LapLink 




(JJ 



F -3 


î| jl [fl 

Mi-fcc 





là 

i 

n 





GRAND ECRAN LCD ET CLAVIER COMPLET 77 TOUCHES 

Ouvrez le PC-3000/3 1 .00 et vous serez immédiatement séduit par son clavier 
ioinplet et son grand écran. Suffisamment important pour travailler sur une 

f IL Ld ’ son ^dichage L.t D noir et blanc met en valeur une résolution 
de 640 x -00 et une émulation CG A/MD A. Le PC-3000/3 i 00 dispose 
egalement d un clavier ergonomique et complet de 77 touches. 

PROCESSEUR 80C88A ET GRANDE MEMOIRE 

wnuTT»^ PC-3000/3 1 00 se répartie en une RAM de 1 Mo/2 Mo et une 
küM de I Mo, ce qui est supérieur à bien des ordinateurs portables et de 
bureau. De plus son processeur 80C88A cadencé a 10 MHz vous donne une 

grande vitesse d accès mémoire. I.e gestionnaire d’informations personnelles 
est également fourni en standard. ' UfLS 

CEI ORDINATEUR PARLE COURAMMENT 7 LANGUES 

Le PC- 3QOO/3 100 est livré en standard avec des possibilités multilingues pour 

e 8eMlon 1 ? a,l '. e tf ^formations personnelles, incluant l’anglais, l’allemand le 
français, 1 italien, I espagnol, le hollandais et le suédois 

POSSIBILITES D’EXTENSION 

PCvïri\Tft eUrS d f Carfe ,! K ûcceptent des Cdrtes mémoire au standard 
F M * A A pour le stockage rapide et sûr des données, vérouillables pour 
p us de securne cl de facilite d’utilisation. N importe quel travail fait en 
cep acre ment peut être instantanément transféré dans votre ordinateur principal 

££&!& Pc" PO " RS232C U est de plus «Uiu 

LE TOUT DANS MOINS D’UNE LIVRE 

S'nT* 1 i n llèse moins de 500 fi rarnmes et ne mesure que 

votre main t X *" 4 ' * mm ’ s msta!lam douillettement dans la paume de 


ArfcClrH'ATrONS ; 
Matériel 


CPU 


Mémoire ROM 
RAM 

Ecran 


Clavier 
Ports E/S 


Di mens i ons (Lx Pxl ï ) 
Poids 


Ali ment ai ion 


Lo^|cie£ 

Système d/exploii aiion 
Logiciels intégrés 


8COHA 

... Vitesse d ho r I oge : K) MHz 
I Mo 

1 00 L _ 

FSTN B/W LCD 
Emulation : CG A/M DA 
Résol ution gr aphique ; 640 x 2tXl 

^ZERTY7_7 touches 

Série RS232C xi 
Parallèle Centronics x I 
PC Ail A LO x 2 
Bu s d'e xtens ion pour FD 3 JT 

- 32 x I 12 x 2^,4 mm 

4 80 g i sa n s, les piles) 

Piles R6 x 3 (*}, pile lithium x 1 {*) 
Ad ap t atei ir sec: leur opt ion ne 1 


Options 


M S/DOS H C3_ 

1 apLink GIP (Gestion nuire 
d’ In formations Person ne 1 1 es ) 


Unités de disquette 3 S\ L44 Mo 
Adaptateur sec leur 
( abl e de eon v e r s i on p a ra J I è le 
C a h le d e c t > n v e rs i on se ri e 

.... Câble La p LinkC' _ 

' V Un S u ltc R6 et une plie lithium sont livrés en standard 

nréaw nCqKil,n ' CaraC,éristi ‘ |ues et los op,ionK s0,lt sujettes à des modifications sans 


IBM 1 ' es: une marque déposée de International Business Machines Corporation M«ï/nnc 

sssr * v “ c ^"”' •'*«**• «Xsffi! 


Distribué par : 







SERIE PC-3100 ORDINATEURS PERSONNELS 


creux 


OPTIONS : 

Lecteur de disquettes portatif sur bus 

(alimentation piles et secteur) 

3 1/2 pouces 1,44 MB 
Disque dur portatif 2 m pouces «mb 

Mini souris 
Mini souris stylo 
Housse de transport 
câble série (transferts) 

Alimentation allume-cigares 
ou secteur 

Cartes mémoire , 

PCMCIA 128 KB à 2 MB I 

Carte de crédit FAX MODEM ■ 
Carte de crédit traducteur 

ANGLAIS -FRANÇAIS PP 

FRANÇAIS-ANGLAIS 


CLAVIER MECANIQUE 

EXTRA 

(type Machine à écrire) 
2 slots pour carte PCMCIA 

tmfmm Sortie série et 

H|n | sortie parallèle intégrées 

111 Sa Taille ? 

[ lllp Vous pouvez le mettre 
■K dans un étui 

i— j de cassette vidéo 

Fourni avec : 

Laplink 

glS SHARP <-> PC 

mSSm SHARP <-> MAC 

Tableur compatible Lotus 1, 2, 3 

Calculatrice - Horloge 
Organisation de tâches journalières 

Gestion de fichiers 
Carnet d'adresses 

Agenda 
Traitement de textes 
- Base de données 


S9HAIW* 

Y --- ^ 1 -| .,1., 


MICROCARDS* 

42220 BURDIGNES cédex (France) 

TéL: 77.39.68.13 - Fax: 77.39.19.60 
Tel.: 77.39.16.33 


1 MB RAM : 2 866 F.H.T. / 3 400 F.TTC 

2 MB RAM : 3 330 F.H.T. / 3 950 F.TTC 

+ 60F. de port colissimo 


S 


■■ • 


mc • r : ■' 

'Ù'i.WÏt-è- : 


...■ 


PC 3100 


Voir bon de commande en nane intérieure 


Document non contractuel - Nos prix peuvent être révisables sans avis préalable *Les marques citées sont des marques déposées 







